pfm_tuihuodsel.pas

POS收银系统

unit pfm_tuihuodsel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ADODB, Db, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons, ado_dm;

type
  Tfm_tuihuodsel = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BBtnOK: TBitBtn;
    BBtnCancel: TBitBtn;
    DBEdit1: TDBEdit;
    DTPicker1: TDateTimePicker;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    GroupBox2: TGroupBox;
    DBLBox1: TDBListBox;
    GroupBox3: TGroupBox;
    DBLBox2: TDBListBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOSProc1: TADOStoredProc;
    ADOTable1: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure DTPicker1Change(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure BBtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Lsh:integer;
    DateTime1:TDateTime;
    jsdw:string;
    Khmc:string;
    Jbrm:string;
    Shrm:string;
    Czym:string;
  end;

var
  fm_tuihuodsel: Tfm_tuihuodsel;

implementation

{$R *.DFM}

procedure Tfm_tuihuodsel.FormCreate(Sender: TObject);
begin
        //取仓库名称
        adoquery1.SQL.clear;
        adoquery1.sql.add('select ckmc from t_ckxx');
        adoquery1.open;
        while not adoquery1.Eof do
        begin
             DBLbox2.items.Add(adoquery1.Fields[0].asstring);
             adoquery1.next;
        end;
        //取分店名称
        adoquery1.close;
        adoquery1.SQL.clear;
        adoquery1.sql.add('select fdmc from t_fendianxx');
        adoquery1.open;
        while not adoquery1.Eof do
        begin
             DBLbox2.items.Add(adoquery1.Fields[0].asstring);
             adoquery1.next;
        end;
        adoquery1.close;
        //取客户名称
        adoquery1.SQL.clear;
        adoquery1.sql.add('select khmc from t_khxx');
        adoquery1.open;
        while not adoquery1.Eof do
        begin
             DBLbox1.items.Add(adoquery1.Fields[0].asstring);
             adoquery1.next;
        end;
        //利用存储过程取得提货单的最大流水号
        adoSProc1.Prepared;
        adoSProc1.Parameters.ParamByName('@chTable').value:='tb_tuihuod';
        adoSproc1.ExecProc;
        Lsh:=adosproc1.Parameters.ParamByName('@intlsh').value+1;
        adosproc1.Close;
        adotable1.open;
        adotable1.Append;
        adotable1.FieldByName('lsh').asinteger:=Lsh;
        adotable1.fieldbyname('rq').asdatetime:=now;
end;

procedure Tfm_tuihuodsel.DTPicker1Change(Sender: TObject);
begin
adotable1.fieldbyname('rq').asdatetime:=DTPicker1.DateTime;
end;

procedure Tfm_tuihuodsel.BBtnOKClick(Sender: TObject);
begin
     if adotable1.FieldByName('lsh').asinteger<=0 then
     begin
        showmessage('流水号为>0的整数');
        modalresult:=mrCancel;
     end;
      if dbLbox2.itemindex<0 then
     begin
        showmessage('请选择退货接收单位');
        exit;
     end;
     if dbLbox1.itemindex<0 then
     begin
        showmessage('请选择客户名称');
        exit;
     end;

     DateTime1:=DTpicker1.DateTime;
     Lsh:=strtoint(dbedit1.text);
     jsdw:=DBLBox1.items.strings[DBlBox1.itemindex];
     Khmc:=DBLBox2.items.strings[DBlBox2.itemindex];
     Jbrm:=DBedit2.text;
     Shrm:=DBedit4.text;
     Czym:=DBedit3.text;
     adotable1.post;
    ModalResult:=MROK;
end;

procedure Tfm_tuihuodsel.BBtnCancelClick(Sender: TObject);
begin
      adotable1.Cancel;
      modalResult:=MRCANCEL;
end;

end.