khzl_unit.~pas

delphi进销存管理系统 很不错得进销存管理系统 有很多skin得

edit8.SetFocus ;

end;

procedure Tkhzl_form.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit9.SetFocus ;

end;

procedure Tkhzl_form.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit10.SetFocus ;

end;

procedure Tkhzl_form.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit11.SetFocus ;

end;

procedure Tkhzl_form.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit12.SetFocus ;

end;

procedure Tkhzl_form.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit13.SetFocus ;

end;

procedure Tkhzl_form.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit14.SetFocus ;

end;

procedure Tkhzl_form.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit15.SetFocus ;

end;

procedure Tkhzl_form.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
khzl_form.SpeedButton15Click(nil);
end;

procedure Tkhzl_form.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9','.',#8,#13]) then
  begin
  showmessage('请正确输入数值');
   key:=#0;
   edit14.SetFocus;
  end;

end;

procedure Tkhzl_form.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9','.',#8,#13]) then
  begin
  showmessage('请正确输入数值');
   key:=#0;
   edit15.SetFocus;
  end;

end;

procedure Tkhzl_form.SpeedButton17Click(Sender: TObject);
begin
with database do
begin
adoq1.Connection :=adoc;
if application.MessageBox('是否真的删除?','记录删除',4)=6 then
begin
adoq1.SQL.Clear ;
adoq1.SQL.Add('delete from khzl where 客户编码=:bm');
adoq1.Parameters.ParamByName('bm').Value:=edit16.Text;
adoq1.ExecSQL ;
end;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select * from khzl');
adoq1.Active :=true;
datas1.DataSet:=adoq1;
dbgrid1.DataSource :=datas1;
statusbar1.Panels[1].Text :=inttostr(adoq1.Recordset.RecordCount);
end;

end;

procedure Tkhzl_form.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then
edit16.Text :=dbgrid1.DataSource.DataSet.FieldValues['客户编码'];

end;

procedure Tkhzl_form.SpeedButton4Click(Sender: TObject);
begin
speedbutton15.Enabled :=true;
speedbutton17.Enabled :=true;
edit1.ReadOnly :=false;
edit1.SetFocus ;
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select * from khzl order by 客户编码');
adoq1.Active :=true;
datas1.DataSet:=adoq1;
dbgrid1.DataSource :=datas1;
statusbar1.Panels[1].Text :=inttostr(adoq1.Recordset.RecordCount);
end;
end;

procedure Tkhzl_form.SpeedButton16Click(Sender: TObject);
begin
speedbutton15.Enabled :=false;
speedbutton17.Enabled :=false;
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select * from khzl where 客户编码=:bm');
adoq1.Parameters.ParamByName('bm').Value:=edit16.Text;
adoq1.Active :=true;
if adoq1.Recordset.RecordCount >0 then
begin
edit1.Text :=adoq1.Fields.Fields[0].AsString ;
edit2.Text :=adoq1.Fields.Fields[1].AsString ;
edit3.Text :=adoq1.Fields.Fields[2].AsString ;
edit4.Text :=adoq1.Fields.Fields[3].AsString ;
edit5.Text :=adoq1.Fields.Fields[4].AsString ;
edit6.Text :=adoq1.Fields.Fields[5].AsString ;
edit7.Text :=adoq1.Fields.Fields[6].AsString ;
edit8.Text :=adoq1.Fields.Fields[7].AsString ;
edit9.Text :=adoq1.Fields.Fields[8].AsString ;
edit10.Text :=adoq1.Fields.Fields[9].AsString ;
edit11.Text :=adoq1.Fields.Fields[10].AsString ;
edit12.Text :=adoq1.Fields.Fields[11].AsString ;
edit14.Text :=adoq1.Fields.Fields[12].AsVariant ;
edit15.Text :=adoq1.Fields.Fields[13].AsVariant ;
edit13.Text :=adoq1.Fields.Fields[14].AsString ;
edit1.ReadOnly :=true;
edit2.SetFocus ;
end
else
showmessage('请刷新选择记录!');

end;
end;

procedure Tkhzl_form.R1Click(Sender: TObject);
begin
khzl_form.SpeedButton4Click(nil);
end;

procedure Tkhzl_form.N2Click(Sender: TObject);
begin
khzl_form.SpeedButton17Click(nil);
end;

procedure Tkhzl_form.N1Click(Sender: TObject);
begin
khzl_form.SpeedButton15Click(nil);
end;

procedure Tkhzl_form.SpeedButton1Click(Sender: TObject);
begin
with database do
begin
adoq2.Connection :=adoc;
adoq2.SQL.Clear ;
adoq2.SQL.Add('update khzl set 客户名称=:khmc,拼音简码=:pyjm ,联系人=:lxr,电话=:dh,邮编=:yb,');
adoq2.SQL.Add('地址=:dz,银行帐号=:yhzh,开户银行=:khyh,信誉度=:xyd,电子邮件=:dzyj,传真=:cz,期初应收=:qcys,期初应付=:qcyf,备注=:bz where 客户编码=:khbm');
adoq2.parameters.ParamByName('khbm').value :=edit1.text;
adoq2.parameters.ParamByName('khmc').value :=edit2.text;
adoq2.parameters.ParamByName('pyjm').value :=edit3.text;
adoq2.Parameters.ParamByName('lxr').Value :=edit4.Text;
adoq2.Parameters.ParamByName('dh').Value :=edit5.text;
adoq2.parameters.ParamByName('yb').value :=edit6.text;
adoq2.parameters.ParamByName('dz').value :=edit7.text;
adoq2.parameters.ParamByName('yhzh').value :=edit8.text;
adoq2.Parameters.ParamByName('khyh').Value :=edit9.Text;
adoq2.Parameters.ParamByName('xyd').Value :=edit10.text;
adoq2.parameters.ParamByName('dzyj').value :=edit11.text;
adoq2.parameters.ParamByName('cz').value :=edit12.text;
adoq2.parameters.ParamByName('qcys').value :=strtofloat(edit14.text);
adoq2.Parameters.ParamByName('qcyf').Value :=strtofloat(edit15.Text);
adoq2.Parameters.ParamByName('bz').Value :=edit13.Text;
adoq2.ExecSQL ;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select * from khzl');
adoq1.Active :=true;
datas1.DataSet :=adoq1;
dbgrid1.DataSource:=datas1;
statusbar1.Panels[1].Text :=inttostr(adoq1.Recordset.RecordCount);
edit1.Clear ;edit2.Clear ;edit3.Clear ;edit4.clear;edit5.Clear;edit6.clear ;
edit7.Clear ;edit8.Clear ;edit9.Clear ;edit10.clear;edit11.Clear;edit12.clear ;
edit13.Clear ;
edit14.Text :='0';edit15.Text :='0';
edit1.SetFocus ;
edit1.ReadOnly :=false;
speedbutton15.Enabled :=true;
speedbutton17.Enabled :=true;

end;
end;

procedure Tkhzl_form.SpeedButton2Click(Sender: TObject);
begin
speedbutton15.Enabled :=true;
speedbutton17.Enabled :=true;
edit1.ReadOnly :=false;
edit1.Clear ;edit2.Clear ;edit3.Clear ;edit4.clear;edit5.Clear;edit6.clear ;
edit7.Clear ;edit8.Clear ;edit9.Clear ;edit10.clear;edit11.Clear;edit12.clear ;
edit13.Clear ;
edit14.Text :='0';edit15.Text :='0';
edit1.SetFocus ;
end;

procedure Tkhzl_form.U1Click(Sender: TObject);
begin
khzl_form.SpeedButton16Click(nil);
end;

procedure Tkhzl_form.SpeedButton3Click(Sender: TObject);
begin
edit1.Clear ;edit2.Clear ;edit3.Clear ;edit4.clear;edit5.Clear;edit6.clear ;
edit7.Clear ;edit8.Clear ;edit9.Clear ;edit10.clear;edit11.Clear;edit12.Text ;
edit13.Clear ;
edit14.Text :='0';edit15.Text :='0';
edit1.SetFocus ;
speedbutton15.Enabled :=true;
speedbutton17.Enabled :=true;
edit1.ReadOnly :=false;
edit1.SetFocus ;
khzl_find_form:=Tkhzl_find_form.create(application);
khzl_find_form.show;
end;

procedure Tkhzl_form.F1Click(Sender: TObject);
begin
speedbutton3click(nil);
end;

end.