analysearrearagefrm.pas

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

unit AnalyseArrearageFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, ckDBClient, StdCtrls, Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl,
  MConnect, RzButton, ComCtrls, RzTreeVw, RzEdit, RzBtnEdt, Mask, ExtCtrls,
  RzPanel, IMainFrm, xBaseFrm, RzDTP, RzSplit;

type
  TFmAnalyseArrearage = class(TxBaseForm)
    cdsAnalyseArrearage: TckClientDataSet;
    dsAnalyseArrearage: TDataSource;
    DCOMConn: TDCOMConnection;
    RzPanel2: TRzPanel;
    DTCtrl1: TRzDateTimePicker;
    DTCtrl2: TRzDateTimePicker;
    edProvNo: TRzButtonEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cdsAnalyseArrearageFDate: TDateTimeField;
    cdsAnalyseArrearageProvNo: TStringField;
    cdsAnalyseArrearageInOutKind: TSmallintField;
    cdsAnalyseArrearagePBillNo: TStringField;
    cdsAnalyseArrearagePItemNo: TIntegerField;
    cdsAnalyseArrearagePayDate: TDateTimeField;
    cdsAnalyseArrearageAmount: TBCDField;
    cdsAnalyseArrearagePaidUp: TBCDField;
    cdsAnalyseArrearageUnPaid: TBCDField;
    cdsAnalyseArrearageEmpNo: TStringField;
    cdsAnalyseArrearageRecNo: TIntegerField;
    cdsAnalyseArrearageCreater: TStringField;
    cdsAnalyseArrearageCreatTime: TDateTimeField;
    cdsAnalyseArrearageMender: TStringField;
    cdsAnalyseArrearageUpdateTime: TDateTimeField;
    cdsAnalyseArrearageGrup: TIntegerField;
    RzPanel1: TRzPanel;
    RzTreeView1: TRzTreeView;
    RzPanel3: TRzPanel;
    xDBGridEh1: TxDBGridEh;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
  private
    IFmMain: IMainForm;
    iClientID: Integer;
  protected
    SvrDataAnalyse: TDispatchConnection;
  public
  end;

var
  FmAnalyseArrearage: TFmAnalyseArrearage;

implementation

uses ShowProGress,RepSelectFrm,DataExportFrm,FieldsLayoutFrm;

{$R *.dfm}

procedure TFmAnalyseArrearage.FormCreate(Sender: TObject);
begin
  IFmMain := Application.MainForm as IMainForm;
  iClientID := IFmMain.IFmMainEx.ClientID;
  SetGressHint('正在连接数据分析服务器...');
  SvrDataAnalyse := IFmMain.GetConnection(Handle, '', 'DataAnalyseSvr.DataAnalyse');
  cdsAnalyseArrearage.RemoteServer := SvrDataAnalyse;
end;

procedure TFmAnalyseArrearage.FormShow(Sender: TObject);
begin
  FreeGressForm;
end;

procedure TFmAnalyseArrearage.RzBitBtn1Click(Sender: TObject);
var Value: Variant;
begin
  Value := 0;
  if not DComConn.Connected then
    DComConn.Open;
  DCOMConn.AppServer.AnalyseArrearage(iClientID, DTCtrl1.Date, DTCtrl2.Date, edProvNo.Text, '', Value);
  cdsAnalyseArrearage.Data := Value;
end;

procedure TFmAnalyseArrearage.RzBitBtn2Click(Sender: TObject);
begin
  if not DComConn.Connected then
    DComConn.Open;
  DCOMConn.AppServer.AnalyseArrearage(iClientID, DTCtrl1.Date, DTCtrl2.Date, edProvNo.Text, '', null);
end;

procedure TFmAnalyseArrearage.RzBitBtn3Click(Sender: TObject);
begin
{  if not cdsAnalyseArrearage.Active then Exit;
  AcntPro('分析',cdsAnalyseArrearage, ['Fldall'], ['ProvNo$0']);}
end;

initialization
  RegisterClass(TFmAnalyseArrearage);
                    
finalization
  UnRegisterClass(TFmAnalyseArrearage);
end.