unit1.pas

软件课程设计

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Edit3: TEdit;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit6, Unit3, Unit4, Unit5, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton2.Checked=true then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select * from 系统人员 where 系统人员id='''+Edit1.text+''' and 密码='''+Edit2.Text+'''  ');
AdoQuery1.Open;
Edit3.Text:=Form1.ADOQuery1.FieldValues['所在连锁店'];
if ADOQuery1.RecordCount=1 then
begin
Form2.button7.visible:=true;
Form2.StatusBar1.Panels[0].Text:='管理员：';
Form4.StatusBar1.Panels[0].Text:='管理员：';
Form5.StatusBar1.Panels[0].Text:='管理员：';
Form6.StatusBar1.Panels[0].Text:='管理员：';
Form7.StatusBar1.Panels[0].Text:='管理员：';
Form8.StatusBar1.Panels[0].Text:='管理员：';
Form9.StatusBar1.Panels[0].Text:='管理员：';

Form2.StatusBar1.Panels[0].Text:=Form2.StatusBar1.Panels[0].Text+Edit1.Text;
Form4.StatusBar1.Panels[0].Text:=Form4.StatusBar1.Panels[0].Text+Edit1.Text;
Form5.StatusBar1.Panels[0].Text:=Form5.StatusBar1.Panels[0].Text+Edit1.Text;
Form6.StatusBar1.Panels[0].Text:=Form6.StatusBar1.Panels[0].Text+Edit1.Text;
Form7.StatusBar1.Panels[0].Text:=Form7.StatusBar1.Panels[0].Text+Edit1.Text;
Form8.StatusBar1.Panels[0].Text:=Form8.StatusBar1.Panels[0].Text+Edit1.Text;
Form9.StatusBar1.Panels[0].Text:=Form9.StatusBar1.Panels[0].Text+Edit1.Text;
Form9.StatusBar1.Panels[2].Text:=timetostr(now());
Form9.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form8.StatusBar1.Panels[2].Text:=timetostr(now());
Form8.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form7.StatusBar1.Panels[2].Text:=timetostr(now());
Form7.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form6.StatusBar1.Panels[2].Text:=timetostr(now());
Form6.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form5.StatusBar1.Panels[2].Text:=timetostr(now());
Form5.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form4.StatusBar1.Panels[2].Text:=timetostr(now());
Form4.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);
Form2.StatusBar1.Panels[2].Text:=timetostr(now());
Form2.StatusBar1.Panels[1].Text:=formatdatetime('"今天是:"' + #13 + 'dddddd',date);



Form2.ShowModal;

Edit1.Text:='';
Edit2.Text:='';
end
else
begin
Edit2.Text:='';
showmessage('密码不正确，请重新输入！');
end;
end
else
if radiobutton1.Checked=true then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select * from 管理人员 where 管理员id='''+Edit1.text+''' and 密码='''+Edit2.Text+'''  ');
AdoQuery1.Open;
Edit3.Text:=Form1.ADOQuery1.FieldValues['连锁店编号'];
if ADOQuery1.RecordCount=1 then
begin
Edit1.Text:='';
Edit2.Text:='';
Form2.ShowModal;
end
else
begin
Edit2.Text:='';
showmessage('密码不正确，请重新输入！');
end;
end

end;

end.