untchooseunit.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 53 行

unit UntChooseUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, DBCtrls;

type
  TfrmChooseUnit = class(TForm)
    Label1: TLabel;
    DBLUnitSel: TDBLookupComboBox;
    btnCreate: TBitBtn;
    btnCancel: TBitBtn;
    qryUnit: TQuery;
    dsUnit: TDataSource;
    qryTemp: TQuery;
    procedure btnCancelClick(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iUnit_ID:integer;
  end;

var
  frmChooseUnit: TfrmChooseUnit;

implementation

{$R *.dfm}

procedure TfrmChooseUnit.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TfrmChooseUnit.btnCreateClick(Sender: TObject);
begin
  iUnit_ID:=StrToInt(DBLUnitSel.KeyValue);
  ModalResult := mrOK;
end;

procedure TfrmChooseUnit.FormActivate(Sender: TObject);
begin
   qryUnit.First;
   DBLUnitSel.KeyValue := qryUnit.FieldByName('UNIT_ID').AsString;
end;

end.