unit1.pas

中鼎百货进销存系统

 DBCom_Area.Clear;
  for i:=0 to listbox4.Items.Count-1 do
  begin
   sarea:=listbox4.Items[i];
   DBCom_Area.Items.Add(sarea);
  end;

  DBCom_Type.Clear;
  for i:=0 to listbox5.Items.Count-1 do
  begin
   s_custype:=listbox5.Items[i];
   DBCom_Type.Items.Add(s_custype);
  end;

 DBCom_Sale.Clear;
 for i:=0 to listbox3.Items.Count-1 do
 begin
  S_username:=listbox3.Items[i];
  DBCom_Sale.Items.Add(S_username);
 end;
end;

if TabbedNotebook1.PageIndex=6 then
begin
   combobox1.Clear;
   sql:='Select Cus_NO from custom';
   ADO_Cancel.Close;
   ADO_Cancel.SQL.Clear;
   ADO_Cancel.SQL.Add(sql);
   ADO_Cancel.Open;
   While not ADO_Cancel.Eof do
   begin
     s_cus_no:=ADO_Cancel.FieldByName('Cus_no').AsString;
     combobox1.Items.Add(s_cus_no);
     ADO_Cancel.Next;
   end;

   combobox7.Clear;
   sql:='Select distinct ManuFactory from ShopName';
   ADO_Cancel.Close;
   ADO_Cancel.SQL.Clear;
   ADO_Cancel.SQL.Add(sql);
   ADO_Cancel.Open;
   While not ADO_Cancel.Eof do
   begin
     s_manufactory:=ADO_Cancel.FieldByName('ManuFactory').AsString;
     combobox7.Items.Add(s_manufactory);
     ADO_Cancel.Next;
   end;

 combobox22.Clear;
 for i:=0 to listbox3.Items.Count-1 do
 begin
  S_username:=listbox3.Items[i];
  combobox22.Items.Add(S_username);
 end;

  ADO_Cancel_Show.close;
  ADO_Cancel_Show.SQL.clear;
  sql1:='Select Cus_NO as 客户编号,Cus_Name as 客户名称,Quality as 产品品类,Pzsize as 产品名称,Shop_NO as 产品条码,packagenum as 包装规格,cellnum as 数量,price as 进货价,Jiner as 金额,Pzuser as 经手人,';
  sql2:='inputdate as 进货日期,Reason as 退货原因,ID as 编号 from CancelCell union select ''合计'',''  '','' '','' '','' '','' '','' '','' '',sum(jiner),''    '','' '','' '','' '' from CancelCell';
  ADO_Cancel_Show.SQL.Add(sql1+sql2);
  ADO_Cancel_Show.Open;
  DBGridAutoSize(DBGrid6);
  ChangeDbGridColColor(DBGrid6);
  DBedit9.DataField:='编号';
end;

if TabbedNotebook1.PageIndex=4 then
begin
if edit19.Text='' then
   edit19.Text:='0';
if edit20.Text='' then
   edit20.Text:='0';
if edit36.Text='' then
   edit36.Text:='0';
   sql:='Select ID as 出库编号, Cus_NO as 客户编号,Cus_Name as 客户名称,ManuFactory as 生产厂家,Quality as 产品品类,Pzsize as 产品名称,packagenum as 包装规格,CellNum as 数量,Price as 单价,PzUser as 经手人 from OutputCell';
   ADO_Output.Close;
   ADO_Output.SQL.Clear;
   ADO_Output.SQL.Add(sql);
   ADO_Output.Open;
   ChangeDbGridColColor(DBGrid3);
   if ADO_Output.RecordCount>0 then
   DBEdit4.DataField:='出库编号';

   //载入客户名称
   combobox8.Clear;
   sql:='Select Cus_NO from custom';
   ADO_Out_temp.Close;
   ADO_Out_temp.SQL.Clear;
   ADO_Out_temp.SQL.Add(sql);
   ADO_Out_temp.Open;
   While not ADO_Out_temp.Eof do
   begin
     s_cus_no:=ADO_Out_temp.FieldByName('Cus_no').AsString;
     combobox8.Items.Add(s_cus_no);
     ADO_Out_temp.Next;
   end;

   combobox10.Clear;
   sql:='Select distinct ManuFactory from ShopName';
   ADO_Out_temp.Close;
   ADO_Out_temp.SQL.Clear;
   ADO_Out_temp.SQL.Add(sql);
   ADO_Out_temp.Open;
   While not ADO_Out_temp.Eof do
   begin
     s_manufactory:=ADO_Out_temp.FieldByName('ManuFactory').AsString;
     combobox10.Items.Add(s_manufactory);
     ADO_Out_temp.Next;
   end;

 combobox15.Clear;
 for i:=0 to listbox3.Items.Count-1 do
 begin
  S_username:=listbox3.Items[i];
  combobox15.Items.Add(S_username);
 end;
end;

if TabbedNotebook1.PageIndex=7 then
begin
 DateTimePicker5.Date:=now-30;
 DateTimePicker6.Date:=now;
 DateTimePicker5.DateFormat:=dfshort;
 DateTimePicker6.DateFormat:=dfshort;

 ADO_Query_CK.Close;
 ADO_Query_CK.SQL.Clear;
 ADO_Query_CK.sql.Add('select distinct Manufactory from shopName');
 ADO_Query_CK.Open;

 Combobox19.Clear;
 Combobox26.Clear;
 Combobox30.Clear;
 Combobox33.Clear;
 while not ADO_Query_CK.Eof do
 begin
  manufactory:=ADO_Query_CK.FieldByName('Manufactory').AsString;
  Combobox19.Items.Add(manufactory);
  Combobox26.Items.Add(manufactory);
  Combobox30.Items.Add(manufactory);
  Combobox33.Items.Add(manufactory);
  ADO_Query_CK.Next;
 end;

 ADO_Query_CK.Close;
 ADO_Query_CK.SQL.Clear;
 ADO_Query_CK.sql.Add('select distinct area_type from custom');
 ADO_Query_CK.Open;

 Combobox29.Clear;
 while not ADO_Query_CK.Eof do
 begin
  area_type:=ADO_Query_CK.FieldByName('area_type').AsString;
  Combobox29.Items.Add(area_type);
  ADO_Query_CK.Next;
 end;


 ADO_Query_CK.Close;
 ADO_Query_CK.SQL.Clear;
 ADO_Query_CK.sql.Add('select distinct Pzuser from outputcell');
 ADO_Query_CK.Open;
 Combobox25.Clear;
  while not ADO_Query_CK.Eof do
 begin
  pzuser:=ADO_Query_CK.FieldByName('Pzuser').AsString;
  Combobox25.Items.Add(pzuser);
  ADO_Query_CK.Next;
 end;

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

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

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

end;

procedure TForm1.Button6Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where cus_no like'+QuotedStr(DBedit1.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
   ChangeDbGridColColor(DBGrid4);

end;

procedure TForm1.Button7Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where cus_name like'+QuotedStr(DBedit_Name.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);
end;

procedure TForm1.Button8Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where teleno like'+QuotedStr(DBEdit_Tele.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);
end;

procedure TForm1.Button9Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where mobilephone like'+QuotedStr(DBEdit_mp.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);
end;

procedure TForm1.Button15Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where own_sales like'+QuotedStr(DBCom_Sale.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);
end;
procedure TForm1.Button16Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where ent_type like'+QuotedStr(DBCom_Type.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);

end;

procedure TForm1.Button17Click(Sender: TObject);
var
sql1,sql2,sql,sql3:string;
begin
   sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
   sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom where area_type like'+QuotedStr(DBCom_Area.text+'%');
   sql3:=' order by cus_no';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.Open;
 ChangeDbGridColColor(DBGrid4);

end;

procedure TForm1.Button12Click(Sender: TObject);
var
sql,sql1,sql2:string;
begin
 if messagedlg('删除该客户资料吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
   sql:='delete from custom where cus_no='''+DBedit7.text+'''';
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.ExecSQL;
  end;

 sql1:='Select cus_no as 客户编号,cus_name as 客户名称,General_Mng as 法人代表,cus_addr as 地址,relation as 联系人,';
 sql2:='teleno as 电话号码,fax as 传真,mobilephone as 手机,mail as 邮件,ent_type as 企业类别,area_type as 区域,own_sales as 跟单业务 from Custom';
 sql:=sql1+sql2;
 ADO_Cus.Close;
 ADO_Cus.SQL.Clear;
 ADO_Cus.SQL.Add(sql);
 ADO_Cus.Open;
 if ADO_Cus.RecordCount>0 then
 DBedit7.DataField:='客户编号';
 DBGridAutoSize(DBGrid4);
 ChangeDbGridColColor(DBGrid4);

end;

{procedure TForm1.Button13Click(Sender: TObject);
var
 sql1,sql2,sql,sql3:string;
begin
 if messagedlg('需要保存的客户资料吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
   sql1:='update custom set cus_name='''+DBedit_Name.text+''',General_Mng='''+DBeditG_M.text+''',cus_addr='''+DBEdit_Addr.text+''',relation='''+DBedit_Rela.text+''',';
   sql2:='teleno='''+DBEdit_Tele.text+''',fax='''+DBEdit_fax.text+''',mobilephone='''+DBEdit_mp.text+''',mail='''+DBEdit_Mail.text+''',ent_type='''+DBCom_Type.text+''',area_type='''+DBCom_Area.text+''',own_sales='''+DBCom_Sale.text+'''';
   sql3:=' where cus_no='''+DBedit1.text+'''';
   sql:=sql1+sql2+sql3;
   ADO_Cus.Close;
   ADO_Cus.SQL.Clear;
   ADO_Cus.SQL.Add(sql);
   ADO_Cus.ExecSQL;
  end;
end;
}
procedure TForm1.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGridRecordSize(Column);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
ExportDBGrid(true);
end;

procedure TForm1.DBGrid4DblClick(Sender: TObject);
begin
form2.Cus_no:=DBedit7.Text;
form2.ShowModal;
end;

procedure TForm1.Button18Click(Sender: TObject);
var
sql,sql1:string;
begin
try
 if messagedlg('需要增加该类产品吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
   sql:='insert into ShopName(Shop_NO,ManuFactory,Quality,Shop_Size,Package_Num) values('''+Edit27.Text+''','''+Combobox17.text+''','''+Combobox6.text+''','''+edit4.text+''','''+edit5.text+''')';
   ADO_Input.Close;
   ADO_Input.SQL.Clear;
   ADO_Input.SQL.Add(sql);
   ADO_Input.ExecSQL;
   Application.MessageBox('增加完成','提示',0);
  end;
   sql:='Select Shop_NO as 产品条码,ManuFactory as 生产厂商,Quality as 产品品类,shop_size as 产品名称,package_num as 包装规格 from ShopName';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   if ADOQuery1.RecordCount>0 then
   DBEdit2.DataField:='产品名称';
 except
 application.MessageBox('输入有误','提示',0);
 end;
end;

procedure TForm1.Button23Click(Sender: TObject);
var
totalsum,temp:string;
i:integer;
begin
if edit6.Text<>'' then
begin
  ListBox2.Items.Add(edit6.Text);
  MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Login.ini');
  totalsum:=inttostr(listbox2.items.count);
  MyIniFile.writestring('feetype','total',totalsum);
  For i:=0 to listbox2.items.count-1 do
  begin
   temp:=listbox2.Items[i];
   MyIniFile.writestring('feetype',inttostr(i),temp);
  end;
end else
application.MessageBox('费用名称不能为空!','提示',0);
end;

procedure TForm1.FormShow(Sender: TObject);
var
sum,showstyle,feetype,username,sql,sql1,sql2:string;
ManuFactory,ware_name,package,size,s_area,s_custype:string;
totalsum,i:integer;
begin
 MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Login.ini');

 sum:=MyIniFile.ReadString('FeeType','total','');