unit8.~pas

软件课程设计

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    StatusBar1: TStatusBar;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Button4: TButton;
    Label8: TLabel;
    Edit7: TEdit;
    Label9: TLabel;
    Edit8: TEdit;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    Label12: TLabel;
    Edit11: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit1, Unit4, Unit2;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
begin


label3.Visible:=true;
label4.Visible:=true;
label5.Visible:=true;
label6.Visible:=true;
label7.Visible:=true;


edit2.Visible:=true;
edit3.Visible:=true;
edit4.Visible:=true;
edit5.Visible:=true;
edit6.Visible:=true;
 Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 管理人员 where "'+combobox1.Text+'"='''+Edit1.Text+''' ');
Form1.ADOQuery1.Open;
Edit2.Text:=Form1.ADOQuery1.FieldValues['姓名'];
Edit3.Text:=Form1.ADOQuery1.FieldValues['职务'];
Edit4.Text:=Form1.ADOQuery1.FieldValues['连锁店编号'];
Edit5.Text:=Form1.ADOQuery1.FieldValues['每月工资'];
Edit6.Text:=Form1.ADOQuery1.FieldValues['工作时间（年）'];

end;

procedure TForm8.Button2Click(Sender: TObject);
begin
button1.Visible:=false;
button2.Visible:=false;
button3.Visible:=false;
button4.Visible:=false;
button6.Visible:=false;
button7.Visible:=TRUE;
Panel1.Visible:=true;
label1.Visible:=false;
label2.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;
label6.Visible:=false;
label7.Visible:=false;
combobox1.Visible:=false;
edit1.Visible:=false;
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
edit5.Visible:=false;
edit6.Visible:=false;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form8.edit1.Visible:=true;
form8.label2.Visible:=true;
form8.label1.Visible:=true;
form8.combobox1.Visible:=true;
form8.button1.Visible:=true;
form8.button2.Visible:=false;
form8.button3.Visible:=false;
form8.button4.Visible:=false;
button5.Visible:=true;
button4.Visible:=true;

form8.Panel1.Visible:=false;

end;

procedure TForm8.Button4Click(Sender: TObject);
begin
close;
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 button2.visible:=true;
 button3.visible:=true;
 edit1.visible:=false;
  edit2.visible:=false;
 edit3.visible:=false;
 edit4.visible:=false;
 edit5.visible:=false;
 edit6.visible:=false;
 combobox1.visible:=false;
  label1.visible:=false;
   label2.visible:=false;
 label3.visible:=false;
 label4.visible:=false;
 label5.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
button2.visible:=false;
button3.visible:=false;
button1.visible:=false;
button6.visible:=false;


end;

procedure TForm8.Label13Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;

Form1.ADOQuery1.SQL.Add('insert into 管理人员(管理员id,姓名,连锁店编号,每月工资,职务,密码,[工作时间（年）]) values('''+Edit7.Text+''','''+Edit8.Text+''','''+edit10.Text+''','''+Edit11.Text+''','''+edit9.text+''','''+inttostr(1111)+''','''+inttostr(1)+''')');
Form1.ADOQuery1.SQL.Add('select *from 管理人员');

Form1.ADOQuery1.Open;
showmessage('添加成功');
end;

procedure TForm8.Button5Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;

Form1.ADOQuery1.SQL.Add('insert into 管理人员(管理员id,姓名,连锁店编号,每月工资,职务,密码,[工作时间（年）]) values('''+Edit7.Text+''','''+Edit8.Text+''','''+edit10.Text+''','''+Edit11.Text+''','''+edit9.text+''','''+inttostr(1111)+''','''+inttostr(1)+''')');
Form1.ADOQuery1.SQL.Add('select *from 管理人员');

Form1.ADOQuery1.Open;
showmessage('添加成功');
end;

procedure TForm8.Button6Click(Sender: TObject);
begin
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 button2.visible:=true;
 button3.visible:=true;
 edit1.visible:=false;
  edit2.visible:=false;
 edit3.visible:=false;
 edit4.visible:=false;
 edit5.visible:=false;
 edit6.visible:=false;
 combobox1.visible:=false;
  label1.visible:=false;
   label2.visible:=false;
 label3.visible:=false;
 label4.visible:=false;
 label5.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
button2.visible:=true;
button3.visible:=true;
button1.visible:=false;
button6.visible:=false;
button4.visible:=true;
end;

procedure TForm8.Button7Click(Sender: TObject);
begin

form8.button2.Visible:=true;
form8.button3.Visible:=true;
button4.Visible:=true;
button6.Visible:=false;


form8.Panel1.Visible:=false;
end;

end.