.#goodscheckacceptdefault.pas.1.6

群星医药系统源码

unit GoodsCheckAcceptDefault;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzTabs, ExtCtrls, StdCtrls, RzCmboBx, Mask, RzEdit,
  IniFiles,uDataTypes,ceGlobal, DB, DBClient, ckDBClient, MConnect,xBaseFrm,
  iMainFrm;

type
  TFmGoodsCheckAcceptDefault = class(TxBaseForm)
    PgcDefault: TRzPageControl;
    Panel1: TPanel;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    TabSheet6: TRzTabSheet;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    edChecker1: TRzEdit;
    edEligibleCard1: TRzEdit;
    edAccepter1: TRzEdit;
    cbQualityState1: TRzComboBox;
    cbPackageState1: TRzComboBox;
    cbLabelState1: TRzComboBox;
    cbDirections1: TRzComboBox;
    cbCheckVerdict1: TRzComboBox;
    CdsDefault: TckClientDataSet;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    edChecker2: TRzEdit;
    edAccepter2: TRzEdit;
    cbQualityState2: TRzComboBox;
    cbPackageState2: TRzComboBox;
    cbLabelState2: TRzComboBox;
    cbDirections2: TRzComboBox;
    cbCheckVerdict2: TRzComboBox;
    sadf: TLabel;
    Label18: TLabel;
    edVerifyReport2: TRzEdit;
    edPassGateNo2: TRzEdit;
    CdsUser: TClientDataSet;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    edChecker3: TRzEdit;
    edBatchNo3: TRzEdit;
    edAccepter3: TRzEdit;
    cbQualityState3: TRzComboBox;
    cbPackageState3: TRzComboBox;
    cbLabelState3: TRzComboBox;
    cbCheckVerdict3: TRzComboBox;
    Label26: TLabel;
    Label27: TLabel;
    edGermicidalNo3: TRzEdit;
    edRegisterCardNo3: TRzEdit;
    Label7: TLabel;
    edEligibleCard2: TRzEdit;
    cbDirections3: TRzComboBox;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    edChecker5: TRzEdit;
    edAccepter5: TRzEdit;
    cbQualityState5: TRzComboBox;
    cbPackageState5: TRzComboBox;
    cbLabelState5: TRzComboBox;
    cbDirections5: TRzComboBox;
    cbCheckVerdict5: TRzComboBox;
    Label38: TLabel;
    edEligibleCard5: TRzEdit;
    Label28: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    edChecker6: TRzEdit;
    edAccepter6: TRzEdit;
    cbQualityState6: TRzComboBox;
    cbPackageState6: TRzComboBox;
    cbLabelState6: TRzComboBox;
    cbDirections6: TRzComboBox;
    cbCheckVerdict6: TRzComboBox;
    Label43: TLabel;
    edEligibleCard6: TRzEdit;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    edChecker4: TRzEdit;
    edEligibleCard4: TRzEdit;
    edAccepter4: TRzEdit;
    cbQualityState4: TRzComboBox;
    cbPackageState4: TRzComboBox;
    cbLabelState4: TRzComboBox;
    cbDirections4: TRzComboBox;
    cbCheckVerdict4: TRzComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    SvrDefault : TDispatchConnection;
    IFmMain : iMainForm;
    IClientID : Integer;
    sWhere : String;
    sSaveSql : String;
    Procedure ShowDefault1;
    Procedure ShowDefault2;
    Procedure ShowDefault3;
    Procedure ShowDefault4;
    Procedure ShowDefault5;
    Procedure ShowDefault6;
    Procedure SaveDefault1;
    Procedure SaveDefault2;
    Procedure SaveDefault3;
    Procedure SaveDefault4;
    Procedure SaveDefault5;
    Procedure SaveDefault6;
  public
    { Public declarations }
  end;
Const
  sDefault1 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',EligibleCard=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'' '+
              ' Where CheckKind=''%s'' ';
  sDefault2 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',EligibleCard=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'', '+
              ' VerifyReport=''%s'',PassGateNo=''%s'' '+
              ' Where CheckKind=''%s'' ';
  sDefault3 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'', '+
              ' GermicidalNo=''%s'',RegisterCardNo=''%s'',BatchNo=''%s'' '+
              ' Where CheckKind=''%s'' ';

  sDefault4 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',EligibleCard=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'' '+
              ' Where CheckKind=''%s'' ';

  sDefault5 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'', '+
              ' EligibleCard=''%s'' '+
              ' Where CheckKind=''%s'' ';
  sDefault6 = ' Update GoodsCheckAcceptDefault Set Accepter=''%s'',Checker=''%s'',CheckVerdict=''%s'', '+
              ' Directions=''%s'',LabelState=''%s'',PackageState=''%s'',QualityState=''%s'', '+
              ' EligibleCard=''%s'' '+
              ' Where CheckKind=''%s'' ';

var
  FmGoodsCheckAcceptDefault: TFmGoodsCheckAcceptDefault;
  rDefault : TDefault;

implementation
Uses ShowProGress;
{$R *.dfm}

procedure TFmGoodsCheckAcceptDefault.FormCreate(Sender: TObject);
begin
  IFmMain:=Application.MainForm as IMainForm;
  iClientID:=IFmMain.IFmMainEx.ClientID;
  SetGressHint('正在连接到采购药品质量验收管理服务器...');
  SvrDefault:=IFmMain.GetConnection(Handle,'','ckPurchBase.coPurchBase');
  SetGressHint('正在连接到公用信息服务器...');
  CdsDefault.RemoteServer:=SvrDefault;
  SetGressHint('正在读取用户操作权限...');
  Cdsuser := IFmMain.IFmMainEx.GetModlsOfUser;
end;

procedure TFmGoodsCheckAcceptDefault.FormShow(Sender: TObject);
Var i,iCount,iCheckKind : Integer;
  str : String;
  B1 : Boolean;
begin
  PgcDefault.TabIndex := 0;
  SetGressHint('正在初始化本地环境...');
  sWhere := 'Where 1=1 ';
  For i:= 1 To 6 Do
  Begin
    Str := 'GoodsCheckAccept'+IntToStr(i);
    B1 := CdsUser.Locate('BillType',Str,[loCaseInsensitive]);
    if B1 Then
    Begin
      sWhere := sWhere + ' Or (CheckKind='+IntToStr(i)+')';
      PgcDefault.Pages[i-1].TabVisible := True;
      PgcDefault.ActivePageIndex := i-1 ;
    End Else
      PgcDefault.Pages[i-1].TabVisible := False;
  End;
  FreeGressForm;
  CdsDefault.Data := SvrDefault.AppServer.GetGCADefault(IClientID,sWhere);
  iCount := CdsDefault.RecordCount;
  If iCount=0 Then Exit;
  CdsDefault.First;
  For I:=0 To iCount-1 Do
  Begin
    iCheckKind := CdsDefault.FieldByName('CheckKind').AsInteger;
    Case iCheckKind Of
      1: ShowDefault1; //普通药品 ;