addstockbillcheckitemfrm.~pas

来自「医药连锁经营管理系统源码」· ~PAS 代码 · 共 119 行

unit AddStockBillCheckItemFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzDBEdit, RzDBBnEd, StdCtrls, Mask,
  RzEdit, StockBillCheckFrm, RzCmboBx, RzDBCmbo, ComCtrls, RzDTP, RzDBDTP;

type
  TFmAddStockBillCheckItem = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    edBillNo: TRzDBEdit;
    edDepotID: TRzDBEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    edGoodsID: TRzDBButtonEdit;
    edBerthNo: TRzDBButtonEdit;
    edUnit: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    edItemNo: TRzDBEdit;
    Bevel1: TBevel;
    btnOK: TRzBitBtn;
    btnCancel: TRzBitBtn;
    Label15: TLabel;
    RzDBEdit1: TRzDBEdit;
    cbUnit: TRzDBComboBox;
    dtValidDate: TRzDBDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure edGoodsIDButtonClick(Sender: TObject);
    procedure edGoodsIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edBerthNoButtonClick(Sender: TObject);
    procedure edBerthNoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmAddStockBillCheckItem: TFmAddStockBillCheckItem;

implementation
uses  SelectGoodsFrm, SelectBerthFrm, ceGlobal;

{$R *.dfm}

procedure TFmAddStockBillCheckItem.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
end;

procedure TFmAddStockBillCheckItem.btnCancelClick(Sender: TObject);
begin
  edBillNo.DataSource.DataSet.Cancel;
  ModalResult := mrCancel;
end;

procedure TFmAddStockBillCheckItem.btnOKClick(Sender: TObject);
begin
  edBillNo.DataSource.DataSet.Post;
  ModalResult := mrOK;
end;

procedure TFmAddStockBillCheckItem.edGoodsIDButtonClick(
  Sender: TObject);
begin
  SelectGoods(edGoodsID.DataSource.DataSet,edGoodsID.Field,
    edUnit.Field,false,false,false);
end;

procedure TFmAddStockBillCheckItem.edGoodsIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if (key=13)and(ssCtrl in Shift) then
    edGoodsIDButtonClick(nil);
end;

procedure TFmAddStockBillCheckItem.edBerthNoButtonClick(
  Sender: TObject);
var
  iDepotID: integer;
  sBerthNo: string;
begin
  iDepotID := edDepotID.Field.AsInteger;
  if SelectBerth(iDepotID,sBerthNo) then
    edBerthNo.Field.AsString := sBerthNo;
end;

procedure TFmAddStockBillCheckItem.edBerthNoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if (key=13)and(ssCtrl in Shift) then
    edBerthNoButtonClick(nil);
end;

end.