xs_unit.pas

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

unit xs_unit;

interface

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

type
  Txs_form = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    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;
    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;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    TabSheet2: TTabSheet;
    GroupBox4: TGroupBox;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    GroupBox5: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label27: TLabel;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    Label26: TLabel;
    DateTimePicker2: TDateTimePicker;
    ComboBox1: TComboBox;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit24: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit23: TEdit;
    DBGrid2: TDBGrid;
    StatusBar2: TStatusBar;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xs_form: Txs_form;

implementation

uses xs_find_unit, xsfk_find_unit, xsdh_find_unit, jhghsfindform,
  jhjsrfindform, jhspfindform, sfkfsform, mainform;

{$R *.dfm}

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

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

procedure Txs_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 xshd(录单日期,单据编码,供货商名称,经手人,备注,商品简码,商品编码,商品名称,类别,规格,型号,单位,参考单价,数量,金额) 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 xshd 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 Txs_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 xshd 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;
end;

procedure Txs_form.SpeedButton2Click(Sender: TObject);
begin
if length(edit28.Text)= 0 then
showmessage('请选择所要删除的记录!')