📄 main.pas

📁 指纹保管箱查询系统(delphi数据库编程)
💻 PAS
字号:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DBMgr, StdCtrls, ComCtrls, WinSkinData, WinSkinStore, ExtCtrls,
  RzGroupBar, ImgList, RzPanel, bsSkinData, BusinessSkinForm, bsSkinCtrls;

type
  TFrmMain = class(TForm)
    ImageList1: TImageList;
    bsfForm: TbsBusinessSkinForm;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup4: TRzGroup;
    RzGroup5: TRzGroup;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ShowFrame(FrameNo:Integer);
    procedure FormShow(Sender: TObject);
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items4Click(Sender: TObject);
    procedure RzGroup1Items6Click(Sender: TObject);
    procedure RzGroup1Items5Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure RzGroup1Items3Click(Sender: TObject);
    procedure RzGroup2Items2Click(Sender: TObject);
    procedure RzGroup2Items4Click(Sender: TObject);
    procedure RzGroup2Items3Click(Sender: TObject);
    procedure RzGroup3Items3Click(Sender: TObject);
    procedure RzGroup3Items4Click(Sender: TObject);
    procedure RzGroup3Items5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
uses
  Lease,IntDate,IntMonth,IntArea,IntBox,Client,Free,SkinMdl;
{$R *.dfm}

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  try
      GDBManager:=TDBManager.Create();
      GDBManager.Initialize();
      GSkinModule:=TSkinModule.Create(nil);
  except
      on E:Exception do begin
        MessageBox(Application.Handle,PChar(E.ClassName+':'+#13+#10+E.Message),
            PChar(Application.Title),MB_ICONERROR);
      end;
    end;
end;

procedure TFrmMain.FormDestroy(Sender: TObject);
begin
  if Assigned(GDBManager) then begin
    FreeAndNil(GDBManager);
  end;
end;
{
  select * from news where convert(varchar(10),adddate,120)>='2005-6-16'   and   convert(varchar(10),adddate,120)<='2005-6-17'
  或者
  select   *   from   news   where   convert(varchar(10),adddate,120)   between   '2005-6-16'   and   '2005-6-17'
  }
  procedure TFrmMain.ShowFrame(FrameNo:Integer);
var
  i: integer;
  ReqDate:String;
  EndDate:String;
  StrSQL:String;
begin
  {清除所有的Frame}
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free;
  {建立相应的Frame}
  case FrameNo of
    1:
    begin
      with TFrLease.Create(self) do
      begin
        Parent := FrmMain;
        Left := 180;
        Top := 0;
        init('AND Lease.租约状态<>5');
        Show;
      end;
     end;
     2:
     begin
      with TFrLease.Create(self) do
      begin
        Parent := FrmMain;
        Left := 180;
        Top := 0;
        DateTimeToString(ReqDate,'yyyy/mm/dd',date);
        init('and Lease.租约状态=0 AND convert(varchar(10),Lease.终止日期 ,120)<='''+ReqDate+'''');
        Show;
      end;
     end;
    3:
     begin
      with TFrLease.Create(self) do
      begin
        Parent := FrmMain;
        Left := 180;
        Top := 0;                  
        init('AND Lease.租约状态=5');
        Show;
      end;
     end;
     5:
      begin
      if FrmDate.ShowModal()=mrOK then begin
        DateTimeToString(ReqDate,'yyyy/mm/dd',FrmDate.DateTimePicker1.Date);
        with TFrLease.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND year(Lease.记录日期)='+Copy(ReqDate,1,4)+'AND month(Lease.记录日期)='+Copy(ReqDate,6,2)+' AND day(Lease.记录日期)='+Copy(ReqDate,9,2));
          Show;
        end;
      end;
     end;
     6:
      begin
      if FrmIntMonth.ShowModal()=mrOK then begin
        DateTimeToString(ReqDate,'yyyy/mm/dd',FrmIntMonth.MonthCalendar1.Date);
        with TFrLease.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND year(Lease.记录日期)='+Copy(ReqDate,1,4)+'AND month(Lease.记录日期)='+Copy(ReqDate,6,2));
          Show;
        end;
      end;
     end;
     7:
      begin
      if FrmArea.ShowModal()=mrOK then begin
        DateTimeToString(ReqDate,'yyyy/mm/dd',FrmArea.DateTimePicker1.Date);
        DateTimeToString(EndDate,'yyyy/mm/dd',FrmArea.DateTimePicker2.Date);
        with TFrLease.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND Lease.记录日期 >='''+ReqDate+''' AND  convert(varchar(10),Lease.记录日期 ,120)<='''+EndDate+'''');
          Show;
        end;
      end;
     end;
     8:
      begin
      if FrmIntBox.ShowModal()=mrOK then begin
        if FrmIntBox.Edit1.Text='' then exit;
        with TFrLease.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND Lease.箱号='''+FrmIntBox.Edit1.Text+''' AND Lease.租约状态='+Format('%d',[FrmIntBox.ComboBox1.ItemIndex]));
          Show;
        end;
      end;
     end;
     9:
      begin
        with TFrClient.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init(' WHERE lzCode_CardType.ID=Client.IdCardType');
          Show;
        end;
     end;
     10:
      begin
        with TFrClient.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          StrSQL:= ',Lease WHERE lzCode_CardType.ID=Client.IdCardType AND Lease.预缴纳租金<=0 and Lease.主租人=Client.ID';
          init(StrSQL);
          Show;
        end;
     end;
     11:
      begin
        with TFrClient.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          DateTimeToString(ReqDate,'yyyy/mm/dd',date);
          init(',Lease WHERE lzCode_CardType.ID=Client.IdCardType AND Lease.主租人=Client.ID AND Lease.租约状态=0 AND convert(varchar(10),Lease.终止日期 ,120)<='''+ReqDate+''' order by Client.ID');
          Show;
        end;
     end;
    12:
      begin
        if FrmDate.ShowModal()=mrOK then begin
        DateTimeToString(ReqDate,'yyyy/mm/dd',FrmDate.DateTimePicker1.Date);
        with TFrFree.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND year(Leasefree.记录时间)='+Copy(ReqDate,1,4)+'AND month(Leasefree.记录时间)='+Copy(ReqDate,6,2)+' AND day(Leasefree.记录时间)='+Copy(ReqDate,9,2));
          Show;
        end;
       end;
      end;
     13:
      begin
        if FrmIntMonth.ShowModal()=mrOK then begin
          DateTimeToString(ReqDate,'yyyy/mm/dd',FrmIntMonth.MonthCalendar1.Date);
          with TFrFree.Create(self) do
          begin
            Parent := FrmMain;
            Left := 180;
            Top := 0;
            init('AND year(Leasefree.记录时间)='+Copy(ReqDate,1,4)+'AND month(Leasefree.记录时间)='+Copy(ReqDate,6,2));
            Show;
          end;
        end;
      end;
     14:
      begin
      if FrmArea.ShowModal()=mrOK then begin
        DateTimeToString(ReqDate,'yyyy/mm/dd',FrmArea.DateTimePicker1.Date);
        DateTimeToString(EndDate,'yyyy/mm/dd',FrmArea.DateTimePicker2.Date);
        with TFrFree.Create(self) do
        begin
          Parent := FrmMain;
          Left := 180;
          Top := 0;
          init('AND Leasefree.记录时间 >='''+ReqDate+''' AND  convert(varchar(10),Leasefree.记录时间 ,120)<='''+EndDate+'''');
          Show;
        end;
      end;
     end;
end;

end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  ShowFrame(1);
end;
//租约日查询
procedure TFrmMain.RzGroup1Items0Click(Sender: TObject);
begin
  ShowFrame(5);
end;
//逾期租约
procedure TFrmMain.RzGroup1Items4Click(Sender: TObject);
begin
  ShowFrame(2);
end;
//退租租约
procedure TFrmMain.RzGroup1Items6Click(Sender: TObject);
begin
  ShowFrame(3);
end;
//将到期租约
procedure TFrmMain.RzGroup1Items5Click(Sender: TObject);
begin
  ShowFrame(4);
end;
//
procedure TFrmMain.RzGroup1Items1Click(Sender: TObject);
begin
  ShowFrame(6);
end;

procedure TFrmMain.RzGroup1Items2Click(Sender: TObject);
begin
  ShowFrame(7);
end;

procedure TFrmMain.RzGroup1Items3Click(Sender: TObject);
begin
  ShowFrame(8);
end;

procedure TFrmMain.RzGroup2Items2Click(Sender: TObject);
begin
 ShowFrame(9);
end;

procedure TFrmMain.RzGroup2Items4Click(Sender: TObject);
begin
  ShowFrame(10);
end;

procedure TFrmMain.RzGroup2Items3Click(Sender: TObject);
begin
  ShowFrame(11);
end;

procedure TFrmMain.RzGroup3Items3Click(Sender: TObject);
begin
ShowFrame(12);
end;

procedure TFrmMain.RzGroup3Items4Click(Sender: TObject);
begin
  ShowFrame(13);
end;

procedure TFrmMain.RzGroup3Items5Click(Sender: TObject);
begin
  ShowFrame(14);
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -