unit7.~pas

中鼎百货进销存系统

end; 
procedure TForm7.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.Checked then
begin
GroupBox1.Enabled:=true;
GroupBox2.Enabled:=false;
GroupBox3.Enabled:=false;

checkbox2.Enabled:=true;
checkbox3.Enabled:=true;
checkbox4.Enabled:=true;


checkbox5.Enabled:=false;
checkbox6.Enabled:=false;
checkbox7.Enabled:=false;
checkbox8.Enabled:=false;
checkbox5.Checked:=false;
checkbox6.Checked:=false;
checkbox7.Checked:=false;
checkbox8.Checked:=false;


checkbox1.Enabled:=false;
checkbox9.Enabled:=false;
checkbox10.Enabled:=false;
checkbox11.Enabled:=false;
checkbox1.Checked:=false;
checkbox9.Checked:=false;
checkbox9.Checked:=false;
checkbox10.Checked:=false;
checkbox11.Checked:=false;
end;
end;

procedure TForm7.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked then
begin
GroupBox1.Enabled:=false;
GroupBox2.Enabled:=true;
GroupBox3.Enabled:=false;

checkbox2.Enabled:=false;
checkbox3.Enabled:=false;
checkbox4.Enabled:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;

checkbox5.Enabled:=true;
checkbox6.Enabled:=true;
checkbox7.Enabled:=true;
checkbox8.Enabled:=true;


checkbox1.Enabled:=false;
checkbox9.Enabled:=false;
checkbox10.Enabled:=false;
checkbox11.Enabled:=false;
checkbox1.Checked:=false;
checkbox9.Checked:=false;
checkbox10.Checked:=false;
checkbox11.Checked:=false;
end;
end;

procedure TForm7.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.Checked then
begin
GroupBox1.Enabled:=false;
GroupBox2.Enabled:=false;
GroupBox3.Enabled:=true;

checkbox2.Enabled:=false;
checkbox3.Enabled:=false;
checkbox4.Enabled:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;

checkbox5.Enabled:=false;
checkbox6.Enabled:=false;
checkbox7.Enabled:=false;
checkbox8.Enabled:=false;
checkbox5.Checked:=false;
checkbox6.Checked:=false;
checkbox7.Checked:=false;
checkbox8.Checked:=false;

checkbox1.Enabled:=true;
checkbox9.Enabled:=true;
checkbox10.Enabled:=true;
checkbox11.Enabled:=true;
end;
end;

procedure TForm7.ComboBox4Click(Sender: TObject);
var
 sql,S_Quality:string;
begin
   combobox3.Clear;
   sql:='Select distinct Quality from ShopName where manufactory='''+combobox4.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Quality:=ADOQuery1.FieldByName('Quality').AsString;
     combobox3.Items.Add(S_Quality);
     ADOQuery1.Next;
   end;
 end;
procedure TForm7.ComboBox6Click(Sender: TObject);
var
 sql,S_Quality:string;
begin
   combobox3.Clear;
   sql:='Select distinct Quality from ShopName where manufactory='''+combobox6.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Quality:=ADOQuery1.FieldByName('Quality').AsString;
     combobox7.Items.Add(S_Quality);
     ADOQuery1.Next;
   end;
 end;

procedure TForm7.ComboBox9Click(Sender: TObject);
var
 sql,S_Quality:string;
begin
   combobox10.Clear;
   sql:='Select distinct Quality from ShopName where manufactory='''+combobox9.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Quality:=ADOQuery1.FieldByName('Quality').AsString;
     combobox10.Items.Add(S_Quality);
     ADOQuery1.Next;
   end;
 end;


procedure TForm7.ComboBox3Click(Sender: TObject);
var
S_Size,sql:string;
begin
combobox2.Clear;
   sql:='Select distinct Shop_Size from ShopName where manufactory='''+combobox4.Text+''' and quality='''+combobox3.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Size:=ADOQuery1.FieldByName('Shop_Size').AsString;
     combobox2.Items.Add(S_Size);
     ADOQuery1.Next;
   end;
end;
procedure TForm7.ComboBox7Click(Sender: TObject);
var
S_Size,sql:string;
begin
combobox8.Clear;
   sql:='Select distinct Shop_Size from ShopName where manufactory='''+combobox6.Text+''' and quality='''+combobox7.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Size:=ADOQuery1.FieldByName('Shop_Size').AsString;
     combobox8.Items.Add(S_Size);
     ADOQuery1.Next;
   end;
end;

procedure TForm7.ComboBox10Click(Sender: TObject);
var
S_Size,sql:string;
begin
combobox11.Clear;
   sql:='Select distinct Shop_Size from ShopName where manufactory='''+combobox9.Text+''' and quality='''+combobox10.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Size:=ADOQuery1.FieldByName('Shop_Size').AsString;
     combobox11.Items.Add(S_Size);
     ADOQuery1.Next;
   end;
end;

procedure TForm7.ComboBox12Click(Sender: TObject);
var
 sql,S_Quality:string;
begin
   combobox13.Clear;
   sql:='Select distinct Quality from ShopName where manufactory='''+combobox12.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Quality:=ADOQuery1.FieldByName('Quality').AsString;
     combobox13.Items.Add(S_Quality);
     ADOQuery1.Next;
   end;
 end;
procedure TForm7.ComboBox13Click(Sender: TObject);
var
S_Size,sql:string;
begin
combobox14.Clear;
   sql:='Select distinct Shop_Size from ShopName where manufactory='''+combobox12.Text+''' and quality='''+combobox13.Text+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   While not ADOQuery1.Eof do
   begin
     S_Size:=ADOQuery1.FieldByName('Shop_Size').AsString;
     combobox14.Items.Add(S_Size);
     ADOQuery1.Next;
   end;
end;

procedure TForm7.Button2Click(Sender: TObject);
var
sql,sql1,sql2,sql3:string;
begin
if (checkbox12.Checked=false) and (checkbox13.Checked=false) and (checkbox14.Checked=false) then
 begin
  ADO_KC.Close;
  ADO_KC.sql.clear;
  sql1:='SELECT Pzsize as 产品名称, sum(inputnum) AS 库存量 FROM (SELECT Pzsize, sum(cellnum) AS inputnum FROM inputcell GROUP BY Pzsize';
  sql2:=' UNION ALL select Pzsize,-sum(cellnum) as outputnum from outputcell group by Pzsize';
  sql3:=' UNION ALL select Pzsize,sum(cellnum) as outputnum from Cancelcell group by Pzsize) A GROUP BY Pzsize';
  sql:=sql1+sql2+sql3;
  ADO_KC.SQL.Add(sql);
  ADO_KC.Open;
  DBGridAutoSize(DBGrid2);
 end;

if (checkbox12.Checked) and (checkbox13.Checked=false) and (checkbox14.Checked=false) then
 begin
  ADO_KC.Close;
  ADO_KC.sql.clear;
  sql1:='SELECT Pzsize as 产品名称, sum(inputnum) AS 库存量 FROM (SELECT Pzsize, sum(cellnum) AS inputnum FROM inputcell where manufactory=:s_manufactory GROUP BY Pzsize';
  sql2:=' UNION ALL select Pzsize,-sum(cellnum) as outputnum from outputcell where manufactory=:s_manu group by Pzsize';
  sql3:=' UNION ALL select Pzsize,sum(cellnum) as outputnum from Cancelcell where manufactory=:s_man group by Pzsize) A GROUP BY Pzsize';
  sql:=sql1+sql2+sql3;
  ADO_KC.SQL.Add(sql);
  ADO_KC.Parameters.ParamByName('s_manufactory').Value:=combobox12.Text;
  ADO_KC.Parameters.ParamByName('s_manu').Value:=combobox12.Text;
  ADO_KC.Parameters.ParamByName('s_man').Value:=combobox12.Text;
  ADO_KC.Open;
  DBGridAutoSize(DBGrid2);
 end;

if (checkbox12.Checked) and (checkbox13.Checked) and (checkbox14.Checked=false) then
 begin
  ADO_KC.Close;
  ADO_KC.sql.clear;
  sql1:='SELECT Pzsize as 产品名称, sum(inputnum) AS 库存量 FROM (SELECT Pzsize, sum(cellnum) AS inputnum FROM inputcell where manufactory=:s_manufactory and Quality=:S_quality GROUP BY Pzsize';
  sql2:=' UNION ALL select Pzsize,-sum(cellnum) as outputnum from outputcell where manufactory=:s_manu and Quality=:S_qual group by Pzsize';
  sql3:=' UNION ALL select Pzsize,sum(cellnum) as outputnum from Cancelcell where manufactory=:s_man and Quality=:S_qua group by Pzsize) A GROUP BY Pzsize';
  sql:=sql1+sql2+sql3;
  ADO_KC.SQL.Add(sql);
  ADO_KC.Parameters.ParamByName('s_manufactory').Value:=combobox12.Text;
  ADO_KC.Parameters.ParamByName('S_quality').Value:=combobox13.Text;
  ADO_KC.Parameters.ParamByName('s_manu').Value:=combobox12.Text;
  ADO_KC.Parameters.ParamByName('S_qual').Value:=combobox13.Text;
  ADO_KC.Parameters.ParamByName('s_man').Value:=combobox12.Text;
  ADO_KC.Parameters.ParamByName('S_qua').Value:=combobox13.Text;
  ADO_KC.Open;
  DBGridAutoSize(DBGrid2);
 end;

if (checkbox12.Checked) and (checkbox13.Checked) and (checkbox14.Checked) then
 begin
  ADO_KC.Close;
  ADO_KC.sql.clear;
  sql1:='SELECT Pzsize as 产品名称, sum(inputnum) AS 库存量 FROM (SELECT Pzsize, sum(cellnum) AS inputnum FROM inputcell where Pzsize=:S_pzsize GROUP BY Pzsize';
  sql2:=' UNION ALL select Pzsize,-sum(cellnum) as outputnum from outputcell where Pzsize=:S_pz group by Pzsize';
  sql3:=' UNION ALL select Pzsize,sum(cellnum) as outputnum from Cancelcell where Pzsize=:S_pzs group by Pzsize) A GROUP BY Pzsize';
  sql:=sql1+sql2+sql3;
  ADO_KC.SQL.Add(sql);
  ADO_KC.Parameters.ParamByName('S_pzsize').Value:=combobox14.Text;
  ADO_KC.Parameters.ParamByName('S_pz').Value:=combobox14.Text;
  ADO_KC.Parameters.ParamByName('S_pzs').Value:=combobox14.Text;
  ADO_KC.Open;
  DBGridAutoSize(DBGrid2);
 end;
end;

procedure TForm7.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGridRecordSize(Column);
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
close;
end;

end.