{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Enabled:=false;
BitBtn5.Enabled:=false;
with form2.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select Ename,Esex,Eage,Edepar,Epos from HR where Edepar='''+ComboBox1.Text+''' ');
open;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
ComboBox1.Enabled:=true;
BitBtn9.Enabled:=false;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
var l:string;
begin
form2.show;
with form2.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select Ename,Esex,Eage,Edepar,Epos from HR where Ename='''+edit1.Text+''' ');
open;
end;
l:=form2.Query1.Fields[2].asstring;
if l='' then showmessage('没有此员工');
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ComboBox4.Enabled:=false;
BitBtn8.Enabled:=false;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
form3.show;
with form3.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select stype,spalce,samount from storage where spalce='''+ComboBox2.Text+''' and stype='''+ComboBox3.Text+''' ');
open;
end;
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
form3.show;
with form3.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select stype,spalce,samount from storage where stype='''+ComboBox4.Text+''' ');
open;
end;
end;
procedure TForm1.ComboBox4Change(Sender: TObject);
begin
ComboBox3.Enabled:=false;
ComboBox2.Enabled:=false;
BitBtn6.Enabled:=false;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
a:=ComboBox7.Text+'-'+ComboBox8.Text+'-'+ComboBox9.Text;
b:=ComboBox12.Text+'-'+ComboBox11.Text+'-'+ComboBox10.Text;
form4.show;
with form4.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select stype,splace,sby,stime,samount,scus,smoney from sale where stype='''+ComboBox6.Text+''' and stime>'''+a+''' and stime<'''+b+''' and splace='''+ComboBox5.Text+''' ');
open;
end;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
with form2.Query1 do
begin
close;
SQL.Clear;
SQL.Add('select Ename,Esex,Eage,Edepar,Epos from HR where Edepar='''+ComboBox1.Text+''' ');
open;
end;
form2.Show;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form5.Caption:='武昌武珞路销售部';
c:='武昌武珞路';
form5.show;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form5.C
