main_u.pas

从盒子上面转过来的一个很小的软件

unit Main_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, ComCtrls;

type
  TMain = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    SB5: TSpeedButton;
    SB1: TSpeedButton;
    SB2: TSpeedButton;
    SB3: TSpeedButton;
    SB6: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    SB4: TSpeedButton;
    StatusBar1: TStatusBar;
    date1: TDateTimePicker;
    procedure SB6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SB1Click(Sender: TObject);
    procedure SB3Click(Sender: TObject);
    procedure SB2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

uses DB_U, LBZY_U, DJ_U, FYMC_U, CXTJ_U;

{$R *.dfm}

procedure TMain.SB6Click(Sender: TObject);
begin
Close;
end;

procedure TMain.FormShow(Sender: TObject);
var
  ddd: TDateTime;
  Year, Month, Day:word;
begin
 customerdata.adoquery1.close;
 customerdata.adoquery1.sql.clear;
 customerdata.adoquery1.sql.add('select * from Login_temp');
 customerdata.adoquery1.Open;
 customerdata.adoquery1.first;

 ddd:=customerdata.adoquery1.fieldbyname('RQ').asdatetime;
 Decodedate(ddd,year,month,day);
 date1.Date:=ddd;
 statusbar1.Panels[0].text:='系统日期: '+inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
 statusbar1.Panels[2].text:='  操作员';
 statusbar1.Panels[3].text:= customerdata.adoquery1.fieldbyname('name').asstring;
end;

procedure TMain.SB4Click(Sender: TObject);
begin
LBZY.ShowModal;
end;

procedure TMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
tc:Integer; 
begin
tc:=Application.MessageBox(' 您真要退出吗？','警告!'
             ,mb_Iconquestion+mb_OkCancel+mb_DefButton1);
if tc=IDCANCEL then abort;
end;

procedure TMain.SB1Click(Sender: TObject);
begin
  DJ.l1.Caption:='1';
  DJ.ShowModal;
end;

procedure TMain.SB3Click(Sender: TObject);
begin
FYMC.ShowModal;
end;

procedure TMain.SB2Click(Sender: TObject);
begin
CXTJ.ShowModal;
end;

end.