xs_unit.pas

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

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 xshd 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 xshd');
data.Database.ADOQ1.Active:=true;
data.Database.DataS1.DataSet:=data.Database.ADOQ1;
dbgrid1.DataSource:=data.Database.DataS1;
statusbar1.Panels[1].Text:=inttostr(data.Database.ADOQ1.Recordset.RecordCount );
dbgrid1.DataSource.DataSet.First;
edit28.Text :=dbgrid1.DataSource.DataSet.FieldValues['编号'];
edit29.Text :=dbgrid1.DataSource.DataSet.FieldValues['单据编码'];

end;


end;
end;

procedure Txs_form.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet.RecordCount >0 then
begin
edit28.Text :=dbgrid1.DataSource.DataSet.FieldValues['编号'];
edit29.Text :=dbgrid1.DataSource.DataSet.FieldValues['单据编码'];
end

end;

procedure Txs_form.SpeedButton3Click(Sender: TObject);
begin
xs_find_form:=txs_find_form.create(application);
xs_find_form.show;
end;

procedure Txs_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 xsfk(录单日期,单据编码,供货商名称,经手人,销售单号,发票类型,付款方式,本次付款,应付总金额,已付金额,未付金额,票号,备注) values(:ldjq,:djbm,:ghsh,:jsr,:jhdh,:fplx,:fkfs,:bcfk,:yfzje,:yfje,:wfje,:ph,:bz)');
  data.Database.ADOQ1.SQL.Add('insert into xsfk(单据编码,供货商名称,经手人,销售单号,发票类型,付款方式,本次付款,应付总金额,已付金额,未付金额,票号,备注) 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 xsfk 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 Txs_form.SpeedButton12Click(Sender: TObject);
begin
data.Database.ADOQ5.Connection:=data.Database.ADOC;
data.Database.ADOQ5.SQL.Clear;
data.Database.ADOQ5.SQL.Add('select * from xsfk 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);
  edit14.Clear ;edit15.Clear; edit16.Clear ;edit17.Clear; edit18.Clear ;edit19.Clear;
  edit20.Clear ;edit21.Clear; edit22.Clear ;edit23.Clear; edit24.Clear ;edit25.Clear;
  edit26.Clear ;edit27.Clear; edit28.Clear ;edit29.Clear; edit30.Clear ;edit31.Clear;
  edit32.Clear ;edit33.Clear; edit34.Clear ;
end;

procedure Txs_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 Txs_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 xsfk 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 xsfk');
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 Txs_form.SpeedButton11Click(Sender: TObject);
begin
xsfk_find_form:=txsfk_find_form.create(application);
xsfk_find_form.show;
end;

procedure Txs_form.SpeedButton16Click(Sender: TObject);
begin
xsdh_find_form:=txsdh_find_form.create(application);
xsdh_find_form.show;
end;

procedure Txs_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:='fk';
end;

procedure Txs_form.SpeedButton6Click(Sender: TObject);
begin
jh_ghs_find_form:=tjh_ghs_find_form.Create(application);
jh_ghs_find_form.Show;
jh_ghs_find_form.Edit2.Text:='xsd';
end;

procedure Txs_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:='xsfk';
end;

procedure Txs_form.SpeedButton7Click(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:='xsd';
end;

procedure Txs_form.SpeedButton8Click(Sender: TObject);
begin
jh_sp_find_form:=tjh_sp_find_form.create(application);
jh_sp_find_form.show;
jh_sp_find_form.Edit2.Text:='xsd';
end;

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

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

procedure Txs_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.