provgoods.pas

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

unit ProvGoods;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzDBEdit, ComCtrls, RzDTP, RzDBDTP, StdCtrls, Mask,
  DBCtrls, RzLabel, RzBorder, ExtCtrls, RzPanel, RzEdit, RzDBBnEd,MConnect,
  DB, RzRadChk, RzDBChk, ceGlobal;

type
  TFmProvGoodsEd = class(TForm)
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzDBEdit5: TRzDBEdit;
    RzDBDateTimePicker1: TRzDBDateTimePicker;
    RzDBEdit6: TRzDBEdit;
    edPrice1: TRzDBNumericEdit;
    edPrice2: TRzDBNumericEdit;
    RzPanel3: TRzPanel;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    edGoodsID: TRzDBButtonEdit;
    RzLabel1: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    edName: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    edUnit1: TRzDBEdit;
    edUnit2: TRzDBEdit;
    dsProvGoods: TDataSource;
    RzDBCheckBox1: TRzDBCheckBox;
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure edGoodsIDButtonClick(Sender: TObject);
    procedure RzDBDateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    bAppend:Boolean;
  end;

var
  FmProvGoodsEd: TFmProvGoodsEd;

implementation

uses SelectGoodsFrm, ProviderFrm;

{$R *.dfm}

procedure TFmProvGoodsEd.RzBitBtn7Click(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TFmProvGoodsEd.RzBitBtn5Click(Sender: TObject);
begin
  If edGoodsID.Text='' Then Begin
    Messagebox(Handle,Pchar('商品编号不能为空！'),'警告:',16);
    Exit;
  End;
  If (edUnit1.Text='') and (dsProvGoods.DataSet.FieldByName('Price1').AsFloat<>0) Then
  Begin
    Messagebox(Handle,Pchar('主单位不存在，协议价无效！'),'警告！',16);
    edPrice1.SetFocus;
    Exit;
  End;
  If (edUnit2.Text='') and (dsProvGoods.DataSet.FieldByName('Price2').AsFloat<>0) Then
  Begin
    Messagebox(Handle,Pchar('辅单位不存在，协议价无效！'),'警告！',16);
    edPrice2.SetFocus;
    Exit;
  End;
  TFmProvider(self.Owner).cdsProviders.Post;
  if TFmProvider(self.Owner).cdsProviders.ApplyUpdates(0)>0 then
  begin
    Application.MessageBox('提交数据失败！', '消息', MB_ICONINFORMATION);
    Exit;
  end;
  ModalResult:=mrOk;
end;

procedure TFmProvGoodsEd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if ModalResult=mrCancel then
  begin
    TFmProvider(self.Owner).cdsProviders.Cancel;
    TFmProvider(self.Owner).cdsProviders.CancelUpdates;
  end;
end;

procedure TFmProvGoodsEd.RzBitBtn6Click(Sender: TObject);
begin
  Close;
end;

procedure TFmProvGoodsEd.edGoodsIDButtonClick(Sender: TObject);
var sGoodsID: String;
begin
  sGoodsID := edGoodsID.text;
  if SelectGoodsID(sGoodsID, false) then
  begin
    dsProvGoods.DataSet.Edit;
    dsProvGoods.DataSet.FieldByName('GoodsID').AsString := sGoodsID;
  end;
end;

procedure TFmProvGoodsEd.RzDBDateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then SendMessage(Handle,WM_NEXTDLGCTL,0,0);
end;

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

end.