rtlpaymodesfrm.pas

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

unit RtlPayModesFrm;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzButton, DB, DBClient, ckDBClient, MConnect, Grids,
  DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl,xBaseFrm,iMainFrm,ModuleAction,DbFuncs,
  ShowProGress,RepSelectFrm, ActnList,ceGlobal, RzPanel, ImgList;

type
  TFmRtlPayModes = class(TXbaseForm)
    Panel1: TPanel;
    DGridReStyle: TxDBGridEh;
    Commcnn: TDCOMConnection;
    cdsRtlPayModes: TckClientDataSet;
    dsRtlPayModes: TDataSource;
    cdsRtlPayModesPayMode: TStringField;
    cdsRtlPayModesPayModeDescr: TStringField;
    cdsRtlPayModesREMARK: TStringField;
    cdsRtlPayModesDataUsable: TBooleanField;
    ActionList1: TActionList;
    Refresh: TModlAction;
    AddNew: TModlAction;
    Edit: TModlAction;
    Delete: TModlAction;
    Finds: TModlAction;
    Print: TModlAction;
    ActExit: TModlAction;
    Panel2: TRzPanel;
    BtnNew: TRzBitBtn;
    BitBtn2: TRzBitBtn;
    BtnPrint: TRzBitBtn;
    BtnEdit: TRzBitBtn;
    BtnDel: TRzBitBtn;
    BtnFind: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RefreshExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure PrintExecute(Sender: TObject);
    procedure DeleteExecute(Sender: TObject);
    procedure EditExecute(Sender: TObject);
    procedure AddNewExecute(Sender: TObject);
  private
    CdsFieldProperty :TckClientDataSet;
    iFmMain:IMainForm;
    iClientID :integer;
  public
    SvrCommon,SvrPayStyle:TDisPatchConnection;
  end;

var
  FmRtlPayModes: TFmRtlPayModes;
Const
  sFieldProPerty='Select * From SysFieldProperty '+
        ' Where TableName=''RtlPayModes''';
implementation

uses RtlPayModeEdFrm;


{$R *.dfm}

procedure TFmRtlPayModes.FormCreate(Sender: TObject);
begin
  CdsFieldProperty:=TCkClientDataSet.Create(Self);
  SetGressHint('正在登录到零售结算方式服务器...');
  iFmMain:=Application.mainForm as iMainForm;
  SvrPayStyle:=IFmMain.GetConnection(Handle, '', 'RetailSvr.Retails');
  SetGressHint('正在连接到公用信息服务器...');
  SvrCommon:=iFmMain.GetConnection(Handle,'','CommonSvr.CommonRDM');
  SetGressHint('读取用户操作权限...');
  IFmMain.SetActionStatus(ActionList1, hInstance, self.ClassName);
  iClientID:=IFmMain.IFmMainEx.ClientID;
  cdsRtlPayModes.RemoteServer := SvrPayStyle;
  CdsFieldProPerty.ProviderName:='DspTemp';
  CdsFieldProperty.RemoteServer := SvrCommon;
end;

procedure TFmRtlPayModes.FormShow(Sender: TObject);
Var
  sTableNames:String;
begin
  SetGressHint('初始化本地环境...');
//  ptBkPanel.Color := TitlePanelColor;
  SetGridEhColor([DGridReStyle]);
  SysFieldXml(CdsFieldProPerty,sFieldProPerty,'TRtlPayMode.Xml');
  sTableNames:='RtlPayModes';
  SetFieldProperty(CdsFieldProPerty,cdsRtlPayModes,sTableNames);
  SetGressHint('读取历史单据...');
  cdsRtlPayModes.Open;
  FreeGressForm;
end;

procedure TFmRtlPayModes.RefreshExecute(Sender: TObject);
begin
  CdsRtlPayModes.Refresh;
end;

procedure TFmRtlPayModes.ActExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFmRtlPayModes.PrintExecute(Sender: TObject);
begin
  SelRepPrint(self.Name, [cdsRtlPayModes], '零售结算方式');
end;

procedure TFmRtlPayModes.DeleteExecute(Sender: TObject);
begin
  if cdsRtlPayModes.IsEmpty then Exit;
  if MessageBox(handle,'是否要确定删除此数据?','警告',MB_ICONWARNING+MB_YESNO)=IDNO then Exit;
  Try
    cdsRtlPayModes.Delete;
    cdsRtlPayModes.ApplyUpdates(0);
  Except
    cdsRtlPayModes.CancelUpdates;
    MessageBox(handle,'删除数据失败,可能已被使用！','消息',MB_OK);
  end;
end;

procedure TFmRtlPayModes.EditExecute(Sender: TObject);
begin
  if cdsRtlPayModes.IsEmpty then Exit;
  With TFmRtlPayModeEd.Create(self) do
  begin
    cdsRtlPayModes.Edit;
    if ShowModal=mrOk then
    begin
      try
        cdsRtlPayModes.ApplyUpdates(0);
      Except
        cdsRtlPayModes.CancelUpdates;
        MessageBox(handle,'保存数据失败!','消息',MB_ok);
      end;
    end else
      cdsRtlPayModes.Cancel;
  end;
end;

procedure TFmRtlPayModes.AddNewExecute(Sender: TObject);
begin
  with TFmRtlPayModeEd.Create(self) do
  begin
    cdsRtlPayModes.Append;
    if ShowModal=mrOk then
    begin
      try
        cdsRtlPayModes.ApplyUpdates(0);
      except
        cdsRtlPayModes.CancelUpdates;
        MessageBox(handle,'保存数据失败!','消息',MB_ok);
      end;
    end else
      cdsRtlPayModes.Cancel;
  end;
end;

initialization
 RegisterClass(TFmRtlPayModes);
finalization
 UnRegisterClass(TFmRtlPayModes);

end.