jhform.pas

单机进销存管理程序 Delphi+Acce

begin
if dbgrid3.DataSource.DataSet.RecordCount >0 then
begin
edit28.Text :=dbgrid3.DataSource.DataSet.FieldValues['编号'];
edit29.Text :=dbgrid3.DataSource.DataSet.FieldValues['单据编码'];
end

end;

procedure Tjh_form.SpeedButton2Click(Sender: TObject);
begin
if length(edit28.Text)= 0 then
showmessage('请选择所要删除的记录!')
else
begin
with data.Database do
begin
data.Database.ADOQ1.Connection:=data.Database.ADOC;
if application.MessageBox('是否真的删除?','记录删除',4)=6 then
begin
data.Database.ADOQ1.SQL.Clear;
data.Database.ADOQ1.SQL.Add('delete from jhd where 单据编码= :djbm and 编号= :spbh');
data.Database.ADOQ1.Parameters.ParamByName('djbm').Value :=edit29.Text;
data.Database.ADOQ1.Parameters.ParamByName('spbh').Value :=edit28.Text;
data.Database.ADOQ1.ExecSQL;
end;
data.Database.ADOQ1.SQL.Clear;
data.Database.ADOQ1.SQL.Add('select * from jhd');
data.Database.ADOQ1.Active:=true;
data.Database.DataS1.DataSet:=data.Database.ADOQ1;
dbgrid3.DataSource:=data.Database.DataS1;
statusbar1.Panels[1].Text:=inttostr(data.Database.ADOQ1.Recordset.RecordCount );
dbgrid3.DataSource.DataSet.First;
edit28.Text :=dbgrid3.DataSource.DataSet.FieldValues['编号'];
edit29.Text :=dbgrid3.DataSource.DataSet.FieldValues['单据编码'];

end;


end;

end;

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

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

procedure Tjh_form.SpeedButton3Click(Sender: TObject);
begin
jhd_find_form:=tjhd_find_form.create(application);
jhd_find_form.show;
end;

procedure Tjh_form.SpeedButton13Click(Sender: TObject);
begin
close;
end;

procedure Tjh_form.SpeedButton9Click(Sender: TObject);
begin

if length(edit14.Text)= 0 then
  begin
  showmessage('单据编号不能为空,请正确输入!');
  edit14.SetFocus;
  end
else
  if length(edit15.Text)= 0 then
    begin
    showmessage('进货单号不能为空,请正确输入!');
    edit15.SetFocus;
    end
  else
  begin
  if length(edit18.Text)= 0 then
  edit18.Text:='0';
  if length(edit20.Text)=0 then
  edit20.Text:='0';
  if length(edit21.Text)=0 then
  edit21.Text:='0';
  if length(edit22.Text)=0 then
  edit22.Text:='0';
  edit30.Text:=edit14.Text;
  edit31.Text:=formatdatetime('MM-dd_yy',datetimepicker2.Date);
  data.Database.ADOQ1.Connection:=data.Database.ADOC;
  data.Database.ADOQ2.Connection:=data.Database.ADOC;
  data.Database.ADOQ1.SQL.Clear;
 // data.Database.ADOQ1.SQL.Add('insert into jhfk(录单日期,单据编码,供货商名称,经手人,进货单号,发票类型,付款方式,本次付款,应付总金额,已付金额,未付金额,票号,备注) values(:ldjq,:djbm,:ghsh,:jsr,:jhdh,:fplx,:fkfs,:bcfk,:yfzje,:yfje,:wfje,:ph,:bz)');
  data.Database.ADOQ1.SQL.Add('insert into jhfk(单据编码,供货商名称,经手人,进货单号,发票类型,付款方式,本次付款,应付总金额,已付金额,未付金额,票号,备注) values(:djbm,:ghsh,:jsr,:jhdh,:fplx,:fkfs,:bcfk,:yfzje,:yfje,:wfje,:ph,:bz)');
 // data.Database.ADOQ1.Parameters.ParamByName('ldjq').Value:=edit31.Text;
  data.Database.ADOQ1.Parameters.ParamByName('djbm').Value:=edit14.Text;
  data.Database.ADOQ1.Parameters.ParamByName('ghsh').Value:=edit16.Text;
  data.Database.ADOQ1.Parameters.ParamByName('jsr').Value:=edit17.Text;
  data.Database.ADOQ1.Parameters.ParamByName('jhdh').Value:=edit15.Text;
  data.Database.ADOQ1.Parameters.ParamByName('fplx').Value:=combobox1.Text ;
  data.Database.ADOQ1.Parameters.ParamByName('fkfs').Value:=edit19.Text;
  data.Database.ADOQ1.Parameters.ParamByName('bcfk').Value:=strtofloat(edit18.Text);
  data.Database.ADOQ1.Parameters.ParamByName('yfzje').Value:=strtofloat(edit21.Text);
  data.Database.ADOQ1.Parameters.ParamByName('yfje').Value:=strtofloat(edit22.Text);
  data.Database.ADOQ1.Parameters.ParamByName('wfje').Value:=strtofloat(edit20.Text);
  data.Database.ADOQ1.Parameters.ParamByName('ph').Value:=edit23.Text;
  data.Database.ADOQ1.Parameters.ParamByName('bz').Value:=edit24.Text;
  data.Database.ADOQ1.ExecSQL;
  data.Database.ADOQ1.SQL.Clear;
  data.Database.ADOQ1.SQL.Add('select * from jhfk where 单据编码 = :djbm');
  data.Database.ADOQ1.Parameters.ParamByName('djbm').Value:=edit30.Text;
  data.Database.ADOQ1.Active:=true;
  data.Database.DataS1.DataSet:=data.Database.ADOQ1;
  dbgrid2.DataSource:=data.Database.DataS1;
  statusbar2.Panels[1].Text:=inttostr(data.Database.ADOQ1.Recordset.RecordCount);
  edit14.Clear;edit15.Clear;edit16.Clear;edit17.Clear;edit18.Text:='0';edit19.Clear;
  edit20.Text:='0';edit21.Text:='0';edit22.Text:='0';edit23.Clear;edit24.Clear;




  end



end;

procedure Tjh_form.SpeedButton12Click(Sender: TObject);
begin
data.Database.ADOQ5.Connection:=data.Database.ADOC;
data.Database.ADOQ5.SQL.Clear;
data.Database.ADOQ5.SQL.Add('select * from jhfk order by 编号');
data.Database.ADOQ5.Active:=true;
data.Database.DataS5.DataSet:=data.Database.ADOQ5;
dbgrid2.DataSource:=data.Database.DataS5;
statusbar2.Panels[1].Text :=inttostr(data.database.adoq5.Recordset.RecordCount);
end;

procedure Tjh_form.DBGrid2CellClick(Column: TColumn);
begin
if dbgrid2.DataSource.DataSet.RecordCount >0 then
begin
edit32.Text :=dbgrid2.DataSource.DataSet.FieldValues['编号'];
edit33.Text :=dbgrid2.DataSource.DataSet.FieldValues['单据编码'];
end
end;

procedure Tjh_form.SpeedButton10Click(Sender: TObject);
begin
if length(edit32.Text)= 0 then
showmessage('请选择所要删除的记录!')
else
begin
with data.Database do
begin
data.Database.ADOQ1.Connection:=data.Database.ADOC;
if application.MessageBox('是否真的删除?' ,'记录删除',4)=6 then
begin
data.Database.ADOQ1.SQL.Clear;
data.Database.ADOQ1.SQL.Add('delete from jhfk where 单据编码= :djbm and 编号= :spbh');
data.Database.ADOQ1.Parameters.ParamByName('djbm').Value :=edit33.Text;
data.Database.ADOQ1.Parameters.ParamByName('spbh').Value :=edit32.Text;
data.Database.ADOQ1.ExecSQL;
end;
data.Database.ADOQ1.SQL.Clear;
data.Database.ADOQ1.SQL.Add('select * from jhfk');
data.Database.ADOQ1.Active:=true;
data.Database.DataS1.DataSet:=data.Database.ADOQ1;
dbgrid2.DataSource:=data.Database.DataS1;
statusbar2.Panels[1].Text:=inttostr(data.Database.ADOQ1.Recordset.RecordCount );
dbgrid2.DataSource.DataSet.First;
edit32.Text :=dbgrid2.DataSource.DataSet.FieldValues['编号'];
edit33.Text :=dbgrid2.DataSource.DataSet.FieldValues['单据编码'];

end;
end;
end;
procedure Tjh_form.SpeedButton11Click(Sender: TObject);
begin
jhfk_find_form:=tjhfk_find_form.create(application);
jhfk_find_form.show;
end;

procedure Tjh_form.SpeedButton14Click(Sender: TObject);
begin
jh_ghs_find_form:=tjh_ghs_find_form.Create(application);
jh_ghs_find_form.Show;
jh_ghs_find_form.Edit2.Text:='jhfk';
end;

procedure Tjh_form.SpeedButton15Click(Sender: TObject);
begin
jh_jsr_find_form:=tjh_jsr_find_form.create(application);
jh_jsr_find_form.show;
jhjsrfindform.jh_jsr_find_form.Edit2.Text:='jhfk';
end;

procedure Tjh_form.SpeedButton17Click(Sender: TObject);
begin
sfkfs_form:=tsfkfs_form.create(application);
sfkfs_form.show;
sfkfs_form.Edit5.Text:='jhfk';
end;

procedure Tjh_form.SpeedButton16Click(Sender: TObject);
begin
jhdh_find_form:=tjhdh_find_form.create(application);
jhdh_find_form.show;
end;

procedure Tjh_form.FormCreate(Sender: TObject);
begin
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
end;

procedure Tjh_form.FormShow(Sender: TObject);
begin
 if main_form.StatusBar1.Panels[0].Text<> '   登陆成功！' then
 begin
 speedbutton1.Enabled:=false;
 speedbutton2.Enabled:=false;
 speedbutton9.Enabled:=false;
 speedbutton10.Enabled:=false;
 end;
end;

end.