pfm_zengpindsel.pas

POS收银系统

unit pfm_zengpindsel;

interface

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

type
  Tfm_zengpindsel = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BBtnOK: TBitBtn;
    Label3: TLabel;
    SProc1: TStoredProc;
    Query1: TQuery;
    DTPicker1: TDateTimePicker;
    BBtnCancel: TBitBtn;
    Label4: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Edit3: TEdit;
    Label5: TLabel;
    BBtnjbr: TBitBtn;
    BBtnshr: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure BBtnCancelClick(Sender: TObject);
    procedure BBtnjbrClick(Sender: TObject);
    procedure BBtnshrClick(Sender: TObject);
  private
    { Private declarations }
  public

    mDateTime:TDateTime;
    mLsh:integer;
    mCkmc:string;
    mGysmc:string;
    mJbrm:string;
    mShrm:string;
    mCzym:string;
  { Public declarations }
  end;

var
  fm_zengpindsel: Tfm_zengpindsel;

implementation

uses pfm_selyuangong;

{$R *.DFM}

procedure Tfm_zengpindsel.FormCreate(Sender: TObject);
begin

        //初始化流水号
        try
            sproc1.Prepare;
            SProc1.ParamByName('@chTable').asstring:='tb_zengpind';
            SProc1.ExecProc;
            edit1.text:=inttostr(SProc1.parambyname('@intlsh').value+1);
            sproc1.UnPrepare;
        except
        on E:Exception do
          begin
               showmessage('取流水号失败');
               close;
          end;
        end;
        //提供仓库列表
        query1.sql.clear;
        query1.sql.add('select ckmc from t_ckxx');
        query1.Open;
        while not query1.Eof do
        begin
            listBox1.items.Add(query1.fieldbyname('ckmc').asstring);
            query1.Next;
        end;
        query1.close;
        //提供供应商列表
        query1.sql.clear;
        query1.sql.add('select gysmc from t_gysxx');
        query1.Open;
        while not query1.Eof do
        begin
            listBox2.items.Add(query1.fieldbyname('gysmc').asstring);
            query1.Next;
        end;
        query1.close;
        //加入初始日期
        dtpicker1.datetime:=now();
        edit4.text:=mUsername;

end;

procedure Tfm_zengpindsel.BBtnOKClick(Sender: TObject);
begin
        if listbox1.itemindex<0 then
        begin
                showmessage('选择进货仓库！');
                exit;
        end;
        if   listbox2.itemindex<0 then
        begin
                showmessage('请选择供应商名称');
                exit;
        end;

       mDateTime:=DTpicker1.DateTime;
       mLsh:=strtoint(edit1.text);
       mCkmc:=ListBox1.items.strings[listBox1.itemindex];
       mGysmc:=ListBox2.items.strings[listBox2.itemindex];
       mJbrm:=edit2.text;
       mShrm:=edit3.text;
       mCzym:=edit4.text;
       ModalResult:=mrOK;
end;

procedure Tfm_zengpindsel.BBtnCancelClick(Sender: TObject);
begin
        ModalResult:=mrCancel;
end;
procedure Tfm_zengpindsel.BBtnjbrClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_selyuangong, fm_selyuangong);
    fm_selyuangong.showmodal;
    edit2.text:=fm_selyuangong.ygbm;
    fm_selyuangong.free;
end;

procedure Tfm_zengpindsel.BBtnshrClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_selyuangong, fm_selyuangong);
    fm_selyuangong.showmodal;
    edit3.text:=fm_selyuangong.ygbm;
    fm_selyuangong.free;
end;

end.