Jump to content

Unigui versiyon 1.10.0.1458


muttalip65

Recommended Posts

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.

 

post-3544-0-88934000-1527061625_thumb.jpg

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...