firstdealcorppassfrm.pas

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

unit FirstDealCorpPassFrm;

interface

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

type
  TFmFirstDealCorpPass = class(TFmFirstDealCorp)
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    RzDBEdit37: TRzDBMemo;
    RzDBEdit38: TRzDBMemo;
    RzDBEdit39: TRzDBMemo;
    cbDept: TRzDBComboBox;
    cbQC: TRzDBComboBox;
    cbManager: TRzDBComboBox;
    RzDBEdit42: TRzDBEdit;
    RzDBEdit43: TRzDBEdit;
    RzDBEdit44: TRzDBEdit;
    ActShowCompleted: TModlAction;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure cdsMainDeptResultChange(Sender: TField);
    procedure cdsMainQCResultChange(Sender: TField);
    procedure cdsMainManagerResultChange(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);
    procedure edDepartButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmFirstDealCorpPass: TFmFirstDealCorpPass;

implementation
uses ChainGSPBaseFrm;

{$R *.dfm}

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

procedure TFmFirstDealCorpPass.cdsMainDeptResultChange(Sender: TField);
begin
  cdsMainDeptPrincipal.Value := LogonInfo^.UserID;
end;

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

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

procedure TFmFirstDealCorpPass.ActAuditExecute(Sender: TObject);
begin
  TFmChainGSPBase(Self).ActAuditExecute(nil);  //跨父类继承
  CheckApprove(cdsMainApprove.Value);
  if (cdsMainDeptResult.IsNull)or(cdsMainDeptResult.Value = '') or
  (cdsMainQCResult.IsNull)or(cdsMainQCResult.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 TFmFirstDealCorpPass.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 TFmFirstDealCorpPass.ActUpdateExecute(Sender: TObject);
begin
  CheckApprove(cdsMainApprove.Value);
  TFmChainGSPBase(self).ActUpdateExecute(nil);  //跨父类继承
end;

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

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

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

procedure TFmFirstDealCorpPass.edDepartButtonClick(Sender: TObject);
begin
  //Do nothing
end;

initialization
  RegisterClass(TFmFirstDealCorpPass);

finalization
  UnRegisterClass(TFmFirstDealCorpPass);

end.