mainpay.~pas

群星医药系统源码

unit MainPay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzLabel, DB, DBClient, MConnect, Grids, DBGridEh, DbUtilsEh, EhLibCDS,
  xEhLibCtl, RzPanel, RzSplit, ExtCtrls, RzBorder, RzDBEdit, Mask, DBCtrls,
  RzButton,xBaseFrm,iMainFrm,ModuleAction,DbFuncs,ShowProGress, ckDBClient,
  ActnList,RepSelectFrm, TFlatSpeedButtonUnit, RzStatus, TFlatPanelUnit;


type
  TFrmPayStyle = class(TXbaseForm)
    Panel1: TPanel;
    Commcnn: TDCOMConnection;
    ClientPayStyle: TckClientDataSet;
    DsPayStyle: TDataSource;
    ClientPayStylePayModeNo: TStringField;
    ClientPayStylePayModeName: TStringField;
    ClientPayStyleTimeLimit: TIntegerField;
    ClientPayStyleREMARK: TStringField;
    ClientPayStyleDataUsable: TBooleanField;
    dbgPaymodes: TxDBGridEh;
    Panel2: TRzPanel;
    RzBitBtn9: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn12: TRzBitBtn;
    RzBitBtn11: TRzBitBtn;
    ActionList1: TActionList;
    ptBkPanel: TFlatPanel;
    ptCaption: TRzMarqueeStatus;
    FlatPanel2: TPanel;
    BtnWhatIs: TFlatSpeedButton;
    BtnHelp: TFlatSpeedButton;
    FlatPanel3: TPanel;
    BtnPopMenu: TFlatSpeedButton;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn12Click(Sender: TObject);
    procedure RzBitBtn11Click(Sender: TObject);
    procedure ClientPayStyleAfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure dbgPaymodesDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn9Click(Sender: TObject);
  private
    CdsFieldProperty :TckClientDataSet;
    iFmMain:IMainForm;
    iClientID :integer;
    procedure SaveData;
  public
    SvrCommon,SvrPayStyle:TDisPatchConnection;
  end;

var
  FrmPayStyle: TFrmPayStyle;

Const
  sFieldProPerty='Select * From SysFieldProperty '+
        ' Where TableName=''PayModes''';

implementation
uses PayModesIN, ceGlobal;
{$R *.dfm}

procedure TFrmPayStyle.RzBitBtn1Click(Sender: TObject);
begin
  ClientPayStyle.Append;
  ClientPayStyleDataUsable.Value:=True;
  With  TFrmPayModesIN.create(self) do
  begin
    if ShowModal=mrOk then
    begin
      ClientPayStyle.Cancel;
      ClientPayStyle.CancelUpdates;
      exit;
    end;
    SaveData;
  end;
end;

procedure TFrmPayStyle.RzBitBtn2Click(Sender: TObject);
begin
  ClientPayStyle.Edit;
  With  TFrmPayModesIN.create(self) do
  begin
    if ShowModal=mrOk then
    begin
      ClientPayStyle.Cancel;
      ClientPayStyle.CancelUpdates;
      exit;
    end;
  if ClientPayStyle.ApplyUpdates(0)>0 then
   begin
    MessageBox(handle,'数据不能更新，可能已被使用！','提示',MB_ICONWARNING+MB_OK);
    ClientPayStyle.CancelUpdates;
   end;
  end;
end;

procedure TFrmPayStyle.RzBitBtn3Click(Sender: TObject);
begin
  if ClientPayStyle.IsEmpty then exit;
  if MessageBox(handle,'确定要删除数据吗？','警告',MB_ICONWARNING+MB_YESNO)=IDNO then Exit;
  ClientPayStyle.Delete;
  if  ClientPayStyle.ApplyUpdates(0)>0 then begin
    MessageBox(handle,'删除数据失败，数据已可能被使用!','警告',MB_ICONWARNING+MB_OK);
    ClientPayStyle.CancelUpdates; 
  end;
end;

procedure TFrmPayStyle.RzBitBtn4Click(Sender: TObject);
begin
  if not(ClientPayStyle.Bof) then
    ClientPayStyle.Prior;
end;

procedure TFrmPayStyle.RzBitBtn5Click(Sender: TObject);
begin
  if not(ClientPayStyle.Eof) then
    ClientPayStyle.next;
end;

procedure TFrmPayStyle.RzBitBtn6Click(Sender: TObject);
begin
  try
   ClientPayStyle.Refresh;
  except
  
  end;
end;

procedure TFrmPayStyle.RzBitBtn7Click(Sender: TObject);
begin
  ClientPayStyle.Cancel;
end;

procedure TFrmPayStyle.RzBitBtn12Click(Sender: TObject);
begin
  Try
   ClientPayStyleDataUsable.Value:=not(ClientPayStyleDataUsable.Value);
  Except
   ClientPayStyle.Edit;
   ClientPayStyleDataUsable.Value:=not(ClientPayStyleDataUsable.Value);
  end;
  if RzBitBtn12.caption='使有效' then RzBitBtn12.caption:='使作废'
    else RzBitBtn12.caption:='使有效';
  SaveData;//保存数据
  ClientPayStyle.Refresh;
end;

procedure TFrmPayStyle.SaveData;
begin
  if ClientPayStyle.ApplyUpdates(0)>0 then
   begin
    MessageBox(handle,'保存数据时发生错误！','提示',MB_ICONWARNING+MB_OK);
     ClientPayStyle.CancelUpdates;
   end;
end;

procedure TFrmPayStyle.RzBitBtn11Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrmPayStyle.ClientPayStyleAfterScroll(DataSet: TDataSet);
begin
  if ClientPayStyleDataUsable.value then
    RzBitBtn12.Caption:='使作废'
   else
    RzBitBtn12.Caption:='使有效';
end;

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

procedure TFrmPayStyle.dbgPaymodesDblClick(Sender: TObject);
begin
  RzBitBtn2.Click;
end;

procedure TFrmPayStyle.FormShow(Sender: TObject);
Var
  sTableNames:String;
begin
  SetGressHint('初始化本地环境...');
  ptBkPanel.Color := TitlePanelColor;
  ptCaption.FillColor := TitlePanelColor;
  SetGridEhColor([dbgPaymodes]);
  SysFieldXml(CdsFieldProPerty,sFieldProPerty,'TPayMode.Xml');
  SetFieldProperty(CdsFieldProPerty,ClientPayStyle, 'PayModes');
  SetGressHint('读取历史单据...');
  ClientPayStyle.Open;
  FreeGressForm;
end;

procedure TFrmPayStyle.RzBitBtn9Click(Sender: TObject);
begin
  SelRepPrint(self.Name, [ClientPayStyle], '结算方式');
end;

initialization
 RegisterClass(TFrmPayStyle);
finalization
 UnRegisterClass(TFrmPayStyle);


end.