mainform.pas

本系统为演示Delphi的功能而开发设计

unit Mainform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Buttons, ExtCtrls;

type
  TXxcxMainForm = class(TForm)
    MainPanel: TPanel;
    ButtonRHZ: TSpeedButton;
    ButtonDYuQi: TSpeedButton;
    ButtonTJ: TSpeedButton;
    Buttonqsfx: TSpeedButton;
    ButtonTuiChu: TSpeedButton;
    Buttonphb: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Buttongeren: TSpeedButton;
    O1: TMenuItem;
    N4: TMenuItem;
    A1: TMenuItem;
    X1: TMenuItem;
    SpeedButton1: TSpeedButton;
    MainPrinterSetupDialog: TPrinterSetupDialog;
    N5: TMenuItem;
    SpeedButton2: TSpeedButton;
    N6: TMenuItem;
    N14: TMenuItem;
    Image1: TImage;
    procedure NTuiChuClick(Sender: TObject);
    procedure ButtonTuiChuClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonRHZClick(Sender: TObject);
    procedure ButtonTJClick(Sender: TObject);
    procedure ButtonDYuQiClick(Sender: TObject);
    procedure ButtonphbClick(Sender: TObject);
    procedure ButtonqsfxClick(Sender: TObject);
    procedure ButtongerenClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N5AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XxcxMainForm: TXxcxMainForm;

implementation

uses  login, HuaXia, LoginData,brushorder,brushlist,brushstat,returnlate,personquery,
  gquery, companyquery,daybrushlist,daybrushstat;

{$R *.DFM}

procedure TXxcxMainForm.NTuiChuClick(Sender: TObject);
begin
close;
end;




procedure TXxcxMainForm.ButtonTuiChuClick(Sender: TObject);
begin
Close;
end;

procedure TXxcxMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  End;
end;



procedure TXxcxMainForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
try
  With SystemData.QueryLogin Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * From user_login_info');
          Add(' where login_name=:loginname and login_time=:logintime');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.loginname;
          ParamByName('logintime').Value:=Login.loginTime;
          prepare;
          Open;
          If SystemData.QueryLogin.RecordCount=1 Then
             Begin
             SystemData.QueryLogin.Edit;
             SystemData.QueryLogin.FieldByName('exit_time').Value:=Now;
             SystemData.QueryLogin.Post;
             End;
          Close;
          End;
  With SystemData.QueryUser Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * From system_user_info');
          Add(' where login_name=:loginname');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.LoginName;
          Prepare;
          Open;
          If SystemData.QueryUser.RecordCount=1 Then
             Begin
             SystemData.QueryUser.Edit;
             SystemData.QueryUser.FieldByName('login_Status').AsString:='退出';
             SystemData.QueryUser.Post;
             End;
          SystemData.QueryUser.Close;
          End;
Except
   On E:Exception Do
   ShowMessage('Error');
end;
End;



procedure TXxcxMainForm.ButtonRHZClick(Sender: TObject);
begin
   FormRiBao.showmodal;
end;

procedure TXxcxMainForm.ButtonTJClick(Sender: TObject);
begin
   FormYueBao.showmodal;
end;

procedure TXxcxMainForm.ButtonDYuQiClick(Sender: TObject);
begin
  FormZongHe.showmodal;
end;

procedure TXxcxMainForm.ButtongerenClick(Sender: TObject);
begin
  FormGeren.showmodal;
end;

procedure TXxcxMainForm.ButtonphbClick(Sender: TObject);
begin
   FormPaiHang.showmodal;
end;

procedure TXxcxMainForm.ButtonqsfxClick(Sender: TObject);
begin
   FormQuShi.showmodal;
end;

procedure TXxcxMainForm.N2Click(Sender: TObject);
begin
    FormYueBao.showmodal;
end;

procedure TXxcxMainForm.N3Click(Sender: TObject);
begin
   FormMingXi.showmodal;
end;

procedure TXxcxMainForm.N11Click(Sender: TObject);
begin
    FormDanwei.showmodal;
end;

procedure TXxcxMainForm.N12Click(Sender: TObject);
begin
    FormGeren.showmodal;
end;

procedure TXxcxMainForm.N8Click(Sender: TObject);
begin
    FormPaiHang.showmodal;
end;

procedure TXxcxMainForm.SpeedButton1Click(Sender: TObject);
begin
MainPrinterSetupDialog.Execute;
end;


procedure TXxcxMainForm.N5AdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
    FormZongHe.showmodal;
end;

procedure TXxcxMainForm.SpeedButton2Click(Sender: TObject);
begin
FormDanwei.ShowModal;
end;

procedure TXxcxMainForm.N5Click(Sender: TObject);
begin
    FormZongHe.showmodal
end;

procedure TXxcxMainForm.X1Click(Sender: TObject);
begin
  close;
end;

procedure TXxcxMainForm.N6Click(Sender: TObject);
begin
   formrimingxi.showmodal;
end;

procedure TXxcxMainForm.N14Click(Sender: TObject);
begin
  formribao.showmodal;
end;

end.