⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 中鼎百货进销存系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
 if sum<>'' then
  begin
   totalsum:=strtoint(sum);
   if totalsum>0 then
    begin
     For i:=0 to totalsum-1 do
      begin
       feetype:=MyIniFile.ReadString('feetype',inttostr(i),'');
      listbox2.Items.Add(feetype);
      end;
    end; //for
   end; //if sum<>''

  sum:=MyIniFile.ReadString('Area','total','');
 if sum<>'' then
  begin
   totalsum:=strtoint(sum);
   if totalsum>0 then
    begin
     For i:=0 to totalsum-1 do
      begin
       s_area:=MyIniFile.ReadString('Area',inttostr(i),'');
      listbox4.Items.Add(s_area);
      end;
    end; //for
   end; //if sum<>''

   sum:=MyIniFile.ReadString('custype','total','');
 if sum<>'' then
  begin
   totalsum:=strtoint(sum);
   if totalsum>0 then
    begin
     For i:=0 to totalsum-1 do
      begin
       s_custype:=MyIniFile.ReadString('custype',inttostr(i),'');
      listbox5.Items.Add(s_custype);
      end;
    end; //for
   end; //if sum<>''


   sum:=MyIniFile.ReadString('UserName','total','');
 if sum<>'' then
  begin
   totalsum:=strtoint(sum);
   if totalsum>0 then
    begin
     For i:=0 to totalsum-1 do
      begin
       username:=MyIniFile.ReadString('username',inttostr(i),'');
      listbox3.Items.Add(username);
      end;
    end; //for
   end; //if sum<>''

//加厂商
 ADO_Input.Close;
 ADO_Input.SQL.Clear;
 ADO_Input.sql.Add('select distinct ManuFactory from shopName');
 ADO_Input.Open;

 Combobox16.Clear;
 Combobox17.Clear;
 while not ADO_Input.Eof do
 begin
  ManuFactory:=ADO_Input.FieldByName('ManuFactory').AsString;
  Combobox16.Items.Add(ManuFactory);
  Combobox17.Items.Add(ManuFactory);
  ADO_Input.Next;
 end;


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

ADO_InShow.close;
ADO_InShow.SQL.clear;
ADO_InShow.SQL.Add('Select ID as 编号, Quality as 产品品类,Pzsize as 产品名称,packagenum as 包装规格,cellnum as 数量,price as 进货价,Pzuser as 经手人,inputdate as 进货日期 from InputCell');
ADO_InShow.Open;
if ADO_InShow.RecordCount>0 then
DBedit3.DataField:='编号';
ChangeDbGridColColor(DBGrid1);
end;


procedure TForm1.Button24Click(Sender: TObject);
var
i:integer;
temp,totalsum:string;
begin
MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Login.ini');
for i:=0 to listbox2.Items.Count-1 do
begin
if listbox2.Selected[i] then
begin
  MyIniFile.DeleteKey('feetype',inttostr(i));
  listbox2.Items.Delete(i);
  break;
end;
end;

 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;

procedure TForm1.ComboBox4Click(Sender: TObject);
var
 sql,S_Size:string;
begin
   combobox2.Clear;
   sql:='Select distinct Shop_size from ShopName where Quality='''+combobox4.Text+''' and manuFactory='''+combobox16.text+'''';
   ADO_Input.Close;
   ADO_Input.SQL.Clear;
   ADO_Input.SQL.Add(sql);
   ADO_Input.Open;
   While not ADO_Input.Eof do
   begin
     S_Size:=ADO_Input.FieldByName('Shop_size').AsString;
     combobox2.Items.Add(S_Size);
     ADO_Input.Next;
   end;
end;
procedure TForm1.ComboBox2Click(Sender: TObject);
var
 sql,S_ShopName,s_no:string;
begin
   combobox5.Clear;
   sql:='Select Shop_NO,Package_num from ShopName where ManuFactory='''+combobox16.text+'''and Quality='''+combobox4.Text+''' and shop_size='''+combobox2.Text+'''';
   ADO_Input.Close;
   ADO_Input.SQL.Clear;
   ADO_Input.SQL.Add(sql);
   ADO_Input.Open;
   While not ADO_Input.Eof do
   begin
     S_ShopName:=ADO_Input.FieldByName('Package_num').AsString;
     s_no:=ADO_Input.FieldByName('Shop_NO').AsString;
     combobox5.Items.Add(S_ShopName);
     edit28.Text:= s_no;
     ADO_Input.Next;
   end;
end;
procedure TForm1.Button26Click(Sender: TObject);
var
totalsum,temp:string;
i:integer;
begin
if edit7.Text<>'' then
begin
  ListBox3.Items.Add(edit7.Text);
  MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Login.ini');
  totalsum:=inttostr(listbox3.items.count);
  MyIniFile.writestring('username','total',totalsum);
  For i:=0 to listbox3.items.count-1 do
  begin
   temp:=listbox3.Items[i];
   MyIniFile.writestring('username',inttostr(i),temp);
  end;
end else
application.MessageBox('操作员名称不能为空!','提示',0);
end;

procedure TForm1.Button27Click(Sender: TObject);
var
i:integer;
temp,totalsum:string;
begin
MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Login.ini');
for i:=0 to listbox3.Items.Count-1 do
begin
if listbox3.Selected[i] then
begin
  MyIniFile.DeleteKey('UserName',inttostr(i));
  listbox3.Items.Delete(i);
  break;
end;
end;

 totalsum:=inttostr(listbox3.items.count);
 MyIniFile.writestring('UserName','total',totalsum);
For i:=0 to listbox3.items.count-1 do
  begin
   temp:=listbox3.Items[i];
   MyIniFile.writestring('UserName',inttostr(i),temp);
end;

end;

procedure TForm1.Button20Click(Sender: TObject);
var
sql:string;
begin
try
if messagedlg('删除该入库资料吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
   sql:='delete from ShopName where shop_size='''+DBEdit2.Text+'''';
   ADO_Input.Close;
   ADO_Input.SQL.Clear;
   ADO_Input.SQL.Add(sql);
   ADO_Input.ExecSQL;

   sql:='Select 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:='产品名称';
  end;
except

 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sql,sql1,sql2:string;
s_manufactory,s_quality,S_size,S_package,S_user,S_shopno:string;
S_inputdate:Tdatetime;
S_cellnum:integer;
S_price,S_Jiner:real;
begin
try
orderno:=10000000+strtofloat(Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9))+Inttostr(Random(9)));

s_manufactory:=combobox16.text;
s_quality:=combobox4.Text;
S_size:=combobox2.Text;
S_package:= combobox5.Text;
S_user:=combobox3.Text;
S_inputdate:=DateTimePicker1.Date;
S_cellnum:=strtoint(edit2.text);
S_price:=strtofloat(edit1.Text);
Edit23.Text:=floattostr((S_price*S_cellnum));
S_Jiner:=strtofloat(edit23.Text);
S_shopno:=edit28.Text;
sql:='InSert Into InputCell(ManuFactory,Quality,Pzsize,Shop_NO,packagenum,cellnum,price,Jiner,Pzuser,inputdate) values(:s_manufactory,:s_quality,:S_size,:S_shopno,:S_package,:S_cellnum,:S_price,:S_Jiner,:S_user,:S_inputdate)' ;
ADO_Input.Close;
ADO_Input.SQL.Clear;
ADO_Input.SQL.Add(sql);

ADO_Input.Parameters.ParamByName('s_manufactory').Value:=s_manufactory;
ADO_Input.Parameters.ParamByName('s_quality').Value:=s_quality;
ADO_Input.Parameters.ParamByName('S_size').Value:=S_size;
ADO_Input.Parameters.ParamByName('S_shopno').Value:=S_shopno;
ADO_Input.Parameters.ParamByName('S_package').Value:=S_package;
ADO_Input.Parameters.ParamByName('S_cellnum').Value:=S_cellnum;
ADO_Input.Parameters.ParamByName('S_price').Value:=S_price;
ADO_Input.Parameters.ParamByName('S_Jiner').Value:=S_Jiner;
ADO_Input.Parameters.ParamByName('S_user').Value:=S_user;
ADO_Input.Parameters.ParamByName('S_inputdate').Value:=S_inputdate;
ADO_Input.ExecSQL;

ADO_InShow.close;
ADO_InShow.SQL.clear;
sql1:='Select ID as 编号, Quality as 产品品类,Pzsize as 产品名称,Shop_NO as 产品条码,packagenum as 包装规格,cellnum as 数量,price as 进货价,Jiner as 金额,Pzuser as 经手人,inputdate as 进货日期 from InputCell';
sql2:=' union select :orderno,''合计'',''  '','' '','' '','' '','' '',sum(jiner),''    '','' '' from InputCell';

sql:=sql1+sql2;
ADO_InShow.SQL.Add(sql1+sql2);
ADO_InShow.Parameters.ParamByName('orderno').Value:=orderno;
ADO_InShow.Open;
DBGridAutoSize(DBGrid1);
ChangeDbGridColColor(DBGrid1);
except
application.MessageBox('输入有误!','提示',0);
end;
end;

procedure TForm1.Button25Click(Sender: TObject);
var
sql:string;
s_usercode,S_username,S_pwd,S_againpwd:string;
begin
try
s_usercode:=edit8.Text;
S_username:=edit9.Text;
S_pwd:=edit10.Text;
S_againpwd:=edit11.Text;
if s_usercode<>'' then
begin
  if s_pwd=s_againpwd then
  begin
   sql:='Insert Into usertable(usercode,username,pwd,func) values('''+s_usercode+''','''+S_username+''','''+S_pwd+''',''0'')';
   ADO_Input.Close;
   ADO_Input.SQL.Clear;
   ADO_Input.SQL.Add(sql);
   ADO_Input.ExecSQL;
   application.MessageBox('增加成功','提示',0);
  end else
application.MessageBox('密码两次输入不匹配','提示',0);
end;
except
application.MessageBox('输入有误','提示',0);
end;
end;
procedure TForm1.Button29Click(Sender: TObject);
var
sql:string;
s_usercode,S_username,S_pwd,S_againpwd,S_oldPwd:string;
begin
try
s_usercode:=edit12.Text;
S_username:=edit13.Text;
S_oldPwd:=edit14.Text;
S_pwd:=edit15.Text;
S_againpwd:=edit16.Text;

//首先比对原口令
 sql:='select usercode,pwd from usertable where usercode='''+s_usercode+''' and pwd='''+S_oldPwd+'''';
 ADO_User.Close;
 ADO_User.SQL.Clear;
 ADO_User.SQL.Add(sql);
 ADO_User.open;
if ADO_User.RecordCount>0 then
 begin
  if s_pwd=s_againpwd then
   begin
     sql:='Update usertable set username='''+S_username+''',pwd='''+S_pwd+''' where usercode='''+s_usercode+'''';
     ADO_User.Close;
     ADO_User.SQL.Clear;
     ADO_User.SQL.Add(sql);
     ADO_User.ExecSQL;
   end else
   application.MessageBox('密码两次输入不匹配','提示',0);
 end else
   application.MessageBox('原口令错误','提示',0);
 except
 application.MessageBox('输入有误','提示',0);
 end;
 application.MessageBox('修改密码完成','提示',0);
end;
procedure TForm1.Button31Click(Sender: TObject);
var
sql:string;
s_usercode,S_username,S_pwd,S_againpwd:string;
begin
 s_usercode:=edit17.Text;
 if s_usercode<>'' then
 begin
 sql:='delete from usertable where usercode='''+s_usercode+'''';
 ADO_Input.Close;
 ADO_Input.SQL.Clear;
 ADO_Input.SQL.Add(sql);
 ADO_Input.ExecSQL;
application.MessageBox(pchar('成功删除,用户代码为'+s_usercode),'提示',0);
end else
application.MessageBox('代码不能为空','提示',0);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
sql:string;
begin
try
if messagedlg('删除该入库资料吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
 sql:='delete from InputCell where ID=:s_id';
 ADO_Input.Close;
 ADO_Input.SQL.Clear;
 ADO_Input.SQL.Add(sql);
 ADO_Input.Parameters.ParamByName('s_id').Value:=DBEdit3.text;
 ADO_Input.ExecSQL;

ADO_InShow.close;
ADO_InShow.SQL.clear;
ADO_InShow.SQL.Add('Select ID as 编号, Quality as 产品品类,Pzsize as 产品名称,packagenum as 包装规格,cellnum as 数量,price as 进货价,Pzuser as 经手人,inputdate as 进货日期 from InputCell');
ADO_InShow.Open;
if ADO_InShow.RecordCount>0 then
DBedit3.DataField:='编号';
ChangeDbGridColColor(DBGrid1);
end;
except
application.MessageBox('删除失败!','提示',0);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ExportDBGrid1(true);
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.ComboBox8Change(Sender: TObject);
var
sql,sql1,sql2:string;
begin
   sql1:='Select ID as 出库编号,Cus_NO as 客户编号,Cus_Name as 客户名称,Quality as 产品品类,Pzsize as 产品名称,packagenum as 包装规格,CellNum as 数量,Price as 单价,PzUser as 经手人 from OutputCell';
   sql2:=' where cus_no like'+QuotedStr('%'+Combobox8.text);
   sql:=sql1+sql2;
   ADO_Output.Close;
   ADO_Output.SQL.Clear;
   ADO_Output.SQL.Add(sql);
   ADO_Output.Open;
   ChangeDbGridColColor(DBGrid3);
end;

procedure TForm1.ComboBox8Click(Sender: TObject);
var
sql,sql1,sql2,s_cus_name:string;
begin
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -