firstdealgoodspassfrm.pas

来自「群星医药系统源码」· PAS 代码 · 共 175 行

unit FirstDealGoodsPassFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FirstDealGoodsFrm, DB, DBClient, MConnect, ckDBClient, Menus,
  ActnList, ModuleAction, TB2Dock, ImgList, StdCtrls, DBCtrls, RzDBEdit,
  ComCtrls, RzDTP, RzDBDTP, RzDBBnEd, Mask, RzEdit, ExtCtrls, Buttons,
  RzButton, TB2Item, TB2Toolbar, RzCmboBx, RzDBCmbo;

type
  TFmFirstDealGoodsPass = class(TFmFirstDealGoods)
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    RzDBEdit35: TRzDBMemo;
    RzDBEdit36: TRzDBMemo;
    RzDBEdit37: TRzDBMemo;
    RzDBEdit38: TRzDBMemo;
    RzDBEdit39: TRzDBMemo;
    cbBuyer: TRzDBComboBox;
    cbOperation: TRzDBComboBox;
    cbQC: TRzDBComboBox;
    cbPricer: TRzDBComboBox;
    cbManager: TRzDBComboBox;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    RzDBEdit40: TRzDBEdit;
    RzDBEdit41: TRzDBEdit;
    RzDBEdit42: TRzDBEdit;
    RzDBEdit43: TRzDBEdit;
    RzDBEdit44: TRzDBEdit;
    ActShowCompleted: TModlAction;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure cdsMainBuyerResultChange(Sender: TField);
    procedure cdsMainOperationResultChange(Sender: TField);
    procedure cdsMainManagerResultChange(Sender: TField);
    procedure cdsMainPricerResultChange(Sender: TField);
    procedure cdsMainQCResultChange(Sender: TField);
    procedure ActAuditExecute(Sender: TObject);
    procedure ActShowCompletedExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure ActCancelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmFirstDealGoodsPass: TFmFirstDealGoodsPass;

implementation

uses ChainGSPBaseFrm;

{$R *.dfm}

procedure TFmFirstDealGoodsPass.FormCreate(Sender: TObject);
begin
  inherited;
  RecState := rsAudited;
  ActInsert.Enabled := false;
end;      

procedure TFmFirstDealGoodsPass.cdsMainBuyerResultChange(Sender: TField);
begin
  cdsMainBuyerID.Value := LogonInfo^.UserID;
end;

procedure TFmFirstDealGoodsPass.cdsMainOperationResultChange(
  Sender: TField);
begin
  cdsMainOperationID.Value := LogonInfo^.UserID;
end;

procedure TFmFirstDealGoodsPass.cdsMainManagerResultChange(Sender: TField);
begin
  cdsMainManagerID.Value := LogonInfo^.UserID;
end;

procedure TFmFirstDealGoodsPass.cdsMainPricerResultChange(Sender: TField);
begin
  cdsMainPricerID.Value := LogonInfo^.UserID;
end;

procedure TFmFirstDealGoodsPass.cdsMainQCResultChange(Sender: TField);
begin
  cdsMainQCID.Value := LogonInfo^.UserID;
end;

procedure TFmFirstDealGoodsPass.ActAuditExecute(Sender: TObject);
begin
  TFmChainGSPBase(self).ActAuditExecute(nil);
  CheckApprove(cdsMainApprove.Value);
  if (cdsMainBuyerResult.IsNull)or(cdsMainBuyerResult.Value = '') or
  (cdsMainOperationResult.IsNull)or(cdsMainOperationResult.Value = '') or
  (cdsMainQCResult.IsNull)or(cdsMainQCResult.Value = '') or
  (cdsMainPricerResult.IsNull)or(cdsMainPricerResult.Value = '') or
  (cdsMainManagerResult.IsNull)or(cdsMainManagerResult.Value = '') then
  begin
    MessageBox(Handle,'审批结论不完整，不能完成审批！','警告',MB_ICONEXCLAMATION);
    exit;
  end;
  if MessageBox(Handle,'即将审批首营药品记录。审批之后将不能再修改数据。'#13'要继续吗？','警告',MB_ICONEXCLAMATION or MB_YESNO or MB_DEFBUTTON2)=IDNO then
    exit;
  EditMode := 1;
  cdsMain.Edit;
  cdsMainApprove.Value := true;
  ActSave.Execute;
  ActRefresh.Execute;
end;

procedure TFmFirstDealGoodsPass.ActShowCompletedExecute(Sender: TObject);
begin
  CheckEditMode;
  if RecState = rsAudited then
    RecState := rsAuditedAndCompleted
  else
    RecState := rsAudited;
  ActShowCompleted.Checked := (RecState = rsAuditedAndCompleted);
  with cdsMain do
  begin
    Params[0].AsInteger := Integer(RecState);
    if Active then Refresh else Open;
  end;
end;

procedure TFmFirstDealGoodsPass.ActUpdateExecute(Sender: TObject);
begin
  CheckApprove(cdsMainApprove.Value);
  TFmChainGSPBase(self).ActUpdateExecute(nil);  //跨父类继承
end;

procedure TFmFirstDealGoodsPass.ActDeleteExecute(Sender: TObject);
begin
  CheckApprove(cdsMainApprove.Value);
  TFmChainGSPBase(self).ActDeleteExecute(nil); //跳过父方法
  inherited;
end;

procedure TFmFirstDealGoodsPass.ActSaveExecute(Sender: TObject);
begin
  inherited;
  ActInsert.Enabled :=false;
end;

procedure TFmFirstDealGoodsPass.ActCancelExecute(Sender: TObject);
begin
  inherited;
  ActInsert.Enabled :=false;
end;

initialization
  RegisterClass(TFmFirstDealGoodsPass);

finalization
  UnRegisterClass(TFmFirstDealGoodsPass);

end.