muttalip65 Posted May 23, 2018 Share Posted May 23, 2018 Unigui 1.0.0.1424 versiyonunda çalışan programım 1.10.0.1458 versiyonunda çalışmıyor. Kullanıcı ve şifre girildikten sonra ekran bomboş oluyor. Bu soruna nasıl bir çözüm önerirsiniz. Unigui 1.0.0.1424 versiyonunda çalışan kodlar aşağıdaki gibidir: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIForm, Vcl.Menus, uniMainMenu, uniGUIBaseClasses, uniButton, uniBitBtn, uniSpeedButton, Vcl.Imaging.GIFImg, uniImage, uniGUImJSForm, unimPanel, uniPanel, uniLabel, Vcl.Imaging.jpeg, uniImageList, uniTreeView,uniGUIFrame, Vcl.Imaging.pngimage, uniDBComboBox, uniDBLookupComboBox, uniMultiItem, uniComboBox, uniEdit, uniBasicGrid, uniDBGrid, uniTimer, uniThreadTimer, UniColorButton,UniGUIJSUtils; type TUniForm1 = class(TUniForm) UniPanel1: TUniPanel; UniContainerPanel1: TUniContainerPanel; imAccueil: TUniImage; UniContainerPanel2: TUniContainerPanel; UniTreeView1: TUniTreeView; UniNativeImageList1: TUniNativeImageList; UniLabel18: TUniLabel; UniPanel3: TUniPanel; UniImage1: TUniImage; UniPanel2: TUniPanel; UniImage2: TUniImage; UniTimer1: TUniTimer; UniPanel4: TUniPanel; UniLabel3: TUniLabel; UniLabel9: TUniLabel; UniLabel2: TUniLabel; UniLabel1: TUniLabel; procedure UniFormCreate(Sender: TObject); procedure UniFormDestroy(Sender: TObject); procedure UniTreeView1Click(Sender: TObject); procedure UniColorButton10Click(Sender: TObject); procedure UniTimer1Timer(Sender: TObject); private { Private declarations } //************************** F_Current:TUniFrame; L_Classe:TStrings; //************************** // yeni bir cursor yaratma bmpMask : TBitmap; bmpColor : TBitmap; iconInfo : TIconInfo; procedure Prepare_MyClass_UniFrame; procedure Close_MyApplication; procedure BakTalepSay; public { Public declarations } yenitalep:boolean; end; function UniForm1: TUniForm1; implementation {$R *.dfm} uses uniGUIVars, MainModule, unit2, Unit12, uniGUIApplication; function UniForm1: TUniForm1;begin Result := TUniForm1(UniMainModule.GetFormInstance(TUniForm1));end; procedure TUniForm1.UniColorButton10Click(Sender: TObject);begin Close_MyApplication;end; procedure TUniForm1.UniFormCreate(Sender: TObject);var talepsay:integer; jpegStream: TMemoryStream;begin UniLoginForm12.TrimAppMemorySize; yenitalep:=false; Prepare_MyClass_UniFrame; UniLoginForm12.Hide; //Caption:=Caption+' Kullanıcı: ' + UniLoginForm12.useradsoy; UniLabel3.Caption:='Hoşgeldin '+UniLoginForm12.useradsoy; try begin dm.veritabani_ac; BakTalepSay; jpegStream:=dm.ResimAl(UniLoginForm12.kurum_sicil_no); jpegStream.Position:=0; try UniImage2.Picture.Graphic:=nil; UniImage2.Picture.Graphic:=TJpegImage.Create; UniImage2.Picture.Graphic.LoadFromStream(JpegStream); //Read Jpeg finally jpegStream.Free; end; end; except end;end; procedure TUniForm1.BakTalepSay;var talepsay,mesajsay,onerisay,onaysay:integer;begin try try dm.YeniTalepSay.Active:=False; dm.YeniMesajSay.Active:=False; dm.OneriSay.Active:=False; dm.OnaySay.Active:=False; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj'; case uniLoginForm12.yetki of 1 : begin // admin dm.YeniTalepSay.SQL.Text:='select count(*) as talepsay from tservis_taleplis where durum=1'; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj '; end; 2 : begin // birim yöneticisi dm.YeniTalepSay.SQL.Text:='select count(*) as talepsay from tservis_taleplis where birimid='+IntToStr(uniLoginForm12.birimi)+' and durum=4'; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj where birimid='+IntToStr(uniLoginForm12.birimi); end; end; dm.YeniTalepSay.Active:=True; dm.YeniMesajSay.Active:=True; dm.OneriSay.Active:=True; dm.OnaySay.Active:=True; talepsay:=dm.YeniTalepSay.FieldByName('talepsay').AsInteger; mesajsay:=dm.YeniMesajSay.FieldByName('mesajsay').AsInteger; onerisay:=dm.OneriSay.FieldByName('onerisay').AsInteger; onaysay:=dm.OnaySay.FieldByName('onaysay').AsInteger; UniTreeView1.Items[0].Text:='GELEN TALEP FORMLAR'; if talepsay>0 then begin UniTreeView1.Items[0].Text:='GELEN TALEP FORMLAR ('+IntToStr(talepsay)+')'; end; dm.YeniTalepSay.Active:=False; UniTreeView1.Items[5].Text:='ÖNERİ-ŞİKAYET LİSTESİ'; if onerisay>0 then begin UniTreeView1.Items[5].Text:='ÖNERİ-ŞİKAYET LİSTESİ ('+IntToStr(onerisay)+')'; end; dm.OneriSay.Active:=False; UniTreeView1.Items[13].Text:='YENİ MESAJ'; if mesajsay>0 then begin UniTreeView1.Items[13].Text:='YENİ MESAJ ('+IntToStr(mesajsay)+')'; end; dm.YeniMesajSay.Active:=False; UniTreeView1.Items[16].Text:='ONAY BEKLEYENLER'; if onaysay>0 then begin UniTreeView1.Items[16].Text:='ONAY BEKLEYENLER ('+IntToStr(onaysay)+')'; end; dm.OnaySay.Active:=False; yenitalep:=false; except end; finally end;end; procedure TUniForm1.UniFormDestroy(Sender: TObject);begin L_Classe.Free; UniLoginForm12.siteSayac(0); // siteden çıkıldı DestroyIcon(Screen.Cursors[5]); UniLoginForm12.TrimAppMemorySize;end; procedure TUniForm1.UniTimer1Timer(Sender: TObject);begin BakTalepSay;end; procedure TUniForm1.UniTreeView1Click(Sender: TObject);var FClassName:string; FrC:TUniFrameClass; Fr:TUniFrame; Nd:TUniTreeNode;begin if F_Current<>Nil then FreeAndNil(F_Current); Nd := UniTreeView1.Selected; if Nd.Text='EBYS KULLANICI KAYIT' then begin if UniLoginForm12.yetki=2 then exit; // birim yöneticisi ise end; if Nd.Text='ÇIKIŞ' then Close_MyApplication else begin FClassName := L_Classe.Strings[Nd.AbsoluteIndex]; //FClassName := L_Classe.Values[Nd.Text]; FrC := TUniFrameClass(FindClass(FClassName)); TRY Fr := FrC.Create(UniForm1); EXCEPT END; UniForm1.Width := Fr.Width + 305; Fr.Align := alClient; Fr.Parent := UniForm1; F_Current:=Fr; end;end; procedure TUniForm1.Prepare_MyClass_UniFrame;var i:integer; Nd:TUniTreeNode;begin //****************************************************************************** L_Classe:=TStringList.Create; L_Classe.Add('TUniFrame7'); // GELEN YENİ İŞ TALEPLERİ L_Classe.Add('TUniFrame9'); // ÇÖZÜLEN İŞ TALEPLERİ L_Classe.Add('TUniFrame3'); // YENİ İŞ TALEBİ GÖNDERME L_Classe.Add('TUniFrame21'); // YENİ İŞ TALEBİ GÖNDERME (3.ŞAHIS ADINA TALEP AÇMA) L_Classe.Add('TUniFrame22'); // DİLEK,ŞİKAYET VE ÖNERİ GÖNDERME L_Classe.Add('TUniFrame23'); // DİLEK,ŞİKAYET VE ÖNERİ LİSTESİ L_Classe.Add('TUniFrame6'); // GEÇMİŞ İŞ TALEP FORMLARI L_Classe.Add('TUniFrame10'); // GELEN İŞ TALEPLERE ÇÖZÜM BULMA L_Classe.Add('TUniFrame16'); // DEMİRBAŞ/CİHAZ TESLİMİ L_Classe.Add('TUniFrame8'); // GÖREVLENDİRME DÜZELTME L_Classe.Add('TUniFrame4'); // SERVİS ELEMANLARI GİRİŞİ L_Classe.Add('TUniFrame17'); // İADE EDİLEN TALEP FORMLAR L_Classe.Add('TUniFrame18'); // EBYS KULLANICI ADI GİRİŞİ L_Classe.Add('TUniFrame20'); // YENİ MESAJLAR L_Classe.Add('TUniFrame19'); // ARIZA TÜRLERİ GRAFİK GÖSTERİM L_Classe.Add('TUniFrame24'); // TEKNİK ELEMAN PERFORMANS L_Classe.Add('TUniFrame25'); // ONAY BEKLEYENLER//****************************************************************************** // Don'nt forget to Register your Frame Class on Frame's initialization section (see Units Frames) end; procedure TUniForm1.Close_MyApplication;begin// Uniapplication.UniSession.Terminate(); Close; UniLoginForm12.Show();end; end. Link to comment Share on other sites More sharing options...
Hayri ASLAN Posted May 23, 2018 Share Posted May 23, 2018 Merhaba Size uzaktan teamviewer ile bağlanabilir miyim? Hatayı daha kolay çözeriz Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now