khth_unit.~pas

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

unit khth_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids,data, Menus;

type
  Tkhth_form = class(TForm)
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    SpeedButton8: TSpeedButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khth_form: Tkhth_form;

implementation

uses jhghsfindform, jhjsrfindform, jhspfindform;

{$R *.dfm}

procedure Tkhth_form.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure Tkhth_form.SpeedButton1Click(Sender: TObject);
begin
if (length(edit2.Text) = 0) then
    begin
    showmessage('进货单不能为空,请正确输入进货单号!');
    edit2.SetFocus ;
    end
else
  if (length(edit1.Text)= 0) then
      begin
      showmessage('厂商名称不能为空,请正确输入供厂商名称!');
      edit1.SetFocus;
      end
   else
      if (length(edit7.Text)= 0) then
      begin
       showmessage('商品名称不能为空,请正确输入商品名称!');
       edit7.SetFocus;
       end
      else
      begin

if (length(edit12.Text) = 0 ) then
edit12.Text:='0';
if (length(edit13.Text) = 0) then
edit13.Text := '0';

edit25.Text:=edit2.Text;
edit26.Text:=formatdatetime('MM-dd-yy',datetimepicker1.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 khthd(录单日期,单据编码,客户名称,经手人,备注,商品简码,商品编码,商品名称,类别,规格,型号,单位,参考单价,数量,金额) values(:ldjq,:djbm,:ghsh,:jsr,:bz,:spjm,:spbm,:spmc,:lb,:gg,:xh,:dw,:chjg,:sl,:je)');
data.Database.ADOQ1.Parameters.ParamByName('ldjq').Value:=edit26.Text ;
data.Database.ADOQ1.Parameters.ParamByName('djbm').Value:=edit2.Text;
data.Database.ADOQ1.Parameters.ParamByName('ghsh').Value:=edit1.Text;
data.Database.ADOQ1.Parameters.ParamByName('jsr').Value:=edit3.Text;
data.Database.ADOQ1.Parameters.ParamByName('bz').Value:=edit4.Text;
data.Database.ADOQ1.Parameters.ParamByName('spjm').Value:=edit5.Text;
data.Database.ADOQ1.Parameters.ParamByName('spbm').Value:=edit6.Text;
data.Database.ADOQ1.Parameters.ParamByName('spmc').Value:=edit7.text;
data.Database.ADOQ1.Parameters.ParamByName('lb').Value:=edit8.text;
data.Database.ADOQ1.Parameters.ParamByName('gg').Value:=edit9.text;
data.Database.ADOQ1.Parameters.ParamByName('xh').Value:=edit10.text;
data.Database.ADOQ1.Parameters.ParamByName('dw').Value:=edit11.text;
data.Database.ADOQ1.Parameters.ParamByName('chjg').Value:=strtofloat(edit12.text);
data.Database.ADOQ1.Parameters.ParamByName('sl').Value:=strtofloat(edit13.text);
data.Database.ADOQ1.Parameters.ParamByName('je').Value:=(strtofloat(edit12.Text) * strtofloat(edit13.Text));
data.Database.ADOQ1.ExecSQL;
data.Database.ADOQ2.SQL.Clear;
data.Database.ADOQ2.SQL.Add('select 编号,单据编码,客户名称,商品简码,商品编码,商品名称,类别,规格,型号,单位,参考单价,数量 from khthd where 单据编码 = :djbm ');
data.Database.ADOQ2.Parameters.ParamByName('djbm').Value:=edit25.Text;
data.Database.ADOQ2.Active:=true;
data.Database.DataS1.DataSet :=data.Database.ADOQ2;
dbgrid1.DataSource:=data.Database.DataS1;
statusbar1.Panels[1].Text:=inttostr(data.Database.ADOQ2.Recordset.RecordCount);
 end
end;

procedure Tkhth_form.SpeedButton4Click(Sender: TObject);
begin
with data.database do
begin
data.database.adoq5.Connection :=data.database.adoc;
data.database.adoq5.SQL.Clear ;
data.database.adoq5.SQL.Add('select * from khthd order by 编号');
data.database.adoq5.Active :=true;
data.database.datas5.DataSet:=data.database.adoq5;
dbgrid1.DataSource :=data.database.datas5;
statusbar1.Panels[1].Text :=inttostr(data.database.adoq5.Recordset.RecordCount);
 end;
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;
edit2.SetFocus;
end;

procedure Tkhth_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 Tkhth_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 khthd 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 khthd');
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 Tkhth_form.SpeedButton6Click(Sender: TObject);
begin
jh_ghs_find_form:=tjh_ghs_find_form.create(application);
jh_ghs_find_form.show;
jhghsfindform.jh_ghs_find_form.Edit2.Text:='khth';
end;

procedure Tkhth_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:='khth';
end;

procedure Tkhth_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:='khth';
end;

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

end.