selectgatheringfrm.~pas

群星医药系统源码

unit SelectGatheringFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl, RzButton, DBCtrls, RzDBNav, RzPanel,
  StdCtrls, Mask, RzEdit, ExtCtrls, RzSplit, ImgList, DB, DBClient,
  ckDBClient, MConnect,IMainFrm, ComCtrls, RzDTP, RzRadChk, RzTabs,
  DBGrids, DbFuncs, ShowProgress, FieldsLayoutFrm,uDataTypes;

type
  TFrmSelectGathering = class(TForm)
    DComm: TDCOMConnection;
    CdsSelectGathering: TckClientDataSet;
    DsSelectGathering: TDataSource;
    ImageList1: TImageList;
    DsSelectGatheringDtl: TDataSource;
    CdsSelectGatheringDtl: TckClientDataSet;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    dbgGathering: TxDBGridEh;
    RzPanel1: TRzPanel;
    Label1: TLabel;
    ckProvNo: TRzCheckBox;
    ckBillNo: TRzCheckBox;
    ckDate: TRzCheckBox;
    dtpBeginDate: TRzDateTimePicker;
    dtpEndDate: TRzDateTimePicker;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    edProvNo: TRzEdit;
    edBillNo: TRzEdit;
    ckEmpNo: TRzCheckBox;
    ckCreater: TRzCheckBox;
    edEmpNo: TRzEdit;
    edCreater: TRzEdit;
    dbgGatheringDtl: TxDBGridEh;
    CdsSelectGatheringBillNo: TStringField;
    CdsSelectGatheringFDate: TDateTimeField;
    CdsSelectGatheringInOutKind: TSmallintField;
    CdsSelectGatheringDepartID: TIntegerField;
    CdsSelectGatheringDepartNo: TStringField;
    CdsSelectGatheringDepartName: TStringField;
    CdsSelectGatheringCustNo: TStringField;
    CdsSelectGatheringCustName: TStringField;
    CdsSelectGatheringLinkMan: TStringField;
    CdsSelectGatheringEmpNo: TStringField;
    CdsSelectGatheringName: TStringField;
    CdsSelectGatheringCreater: TStringField;
    CdsSelectGatheringCreateName: TStringField;
    CdsSelectGatheringAdsBrowGatheringDtl: TDataSetField;
    CdsSelectGatheringDtlBillNo: TStringField;
    CdsSelectGatheringDtlItemNo: TIntegerField;
    CdsSelectGatheringDtlGoodsID: TStringField;
    CdsSelectGatheringDtlName: TStringField;
    CdsSelectGatheringDtlSpecs: TStringField;
    CdsSelectGatheringDtlUnit: TStringField;
    CdsSelectGatheringDtlBatchNo: TStringField;
    CdsSelectGatheringDtlQty: TBCDField;
    CdsSelectGatheringDtlPrice: TFloatField;
    CdsSelectGatheringDtlTaxRate: TBCDField;
    CdsSelectGatheringDtlUnTaxPrice: TFloatField;
    CdsSelectGatheringDtlGoodsSum: TBCDField;
    CdsSelectGatheringDtlTaxSum: TBCDField;
    CdsSelectGatheringDtlAmount: TBCDField;
    CdsSelectGatheringDtlCostPrice: TFloatField;
    CdsSelectGatheringDtlCostAmount: TBCDField;
    CdsSelectGatheringDtlPBillNo: TStringField;
    CdsSelectGatheringDtlPItemNo: TIntegerField;
    CdsSelectGatheringDtlPaidUp: TBCDField;
    CdsSelectGatheringDtlUnPaid: TBCDField;
    CdsSelectGatheringDtlPayDone: TBooleanField;
    CdsSelectGatheringDtlPayDoneDate: TDateTimeField;
    CdsSelectGatheringDtlRemark: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dbgGatheringDtlDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    IFmMain:iMainForm;
    CanMulti : Boolean;
    LocSetting: PLocSetting;
    CdsFieldProPerty:TCKClientDataSet;
    SvrCommon: TDispatchConnection;
    SvrGathering:TDispatchConnection;
    Function FilterData:String;
  public
    { Public declarations }
  end;
Function SelectGathering(DataSet: TDataSet;sBillNo:String;bAppend, bMultiSlt: Boolean): Boolean;

var
  FrmSelectGathering: TFrmSelectGathering;

Const
  sFieldProPerty='Select * From SysFieldProPerty '+
       ' Where TableName In(''Gathering'',''GatheringDtl'', ''Goodses'')';

implementation
uses ceGlobal;

{$R *.dfm}
Function SelectGathering(DataSet: TDataSet;sBillNo:String;bAppend, bMultiSlt: Boolean): Boolean;
const
  c_Fields1: Array[0..6] of String = ('PBillNo', 'PItemNo', 'PInOutKind','PDate', 'PAmount', 'PPaidUp', 'PUnPaid');
  c_Fields2: Array[0..6] of String = ('PBillNo', 'PItemNo', 'InOutKind','PayDate','Amount', 'PaidUp', 'UnPaid');
var iCount,iLen,i,n : Integer;
    vField1, vField2: TField;
begin
  Result := false;
  with TFrmSelectGathering.Create(NIl) do begin
    If not bAppend then Begin
      dbgGatheringDtl.Options := dbgGatheringDtl.Options-[dgMultiSelect];
      CanMulti := False;
    End Else
      CanMulti := True;
    CdsSelectGathering.Filtered := False;
    If (CdsSelectGathering.Active) And Not(bAppend) Then
      If sBillNo<>'' Then Begin
        edBillNo.Text := sBillNo;
        CdsSelectGathering.Locate('BillNo',sBillNo,[loCaseInsensitive]);
      End;
    if ShowModal=mrOk then begin
      if bMultiSlt And bAppend Then
        iCount := dbgGatheringDtl.SelectedRows.Count
      Else
        iCount := 1;
      For n:= 0 to iCount-1 do begin
        If bAppend Then Begin
          CdsSelectGatheringDtl.Bookmark := dbgGatheringDtl.SelectedRows[n];
          DataSet.Append
        End Else
          DataSet.Edit;
        iLen := Length(c_Fields1);
        For i:=0 to iLen-1 do begin
          vField1 := DataSet.FindField(c_Fields1[i]);
          if vField1=nil then Continue;
          vField2 := CdsSelectGatheringDtl.FindField(c_Fields2[i]);
          if vField2=nil then Continue;
          vField1.Value := vField2.Value;
        end;
        DataSet.Post;
      End;
    End;
  End;
  Result := true;
end;

procedure TFrmSelectGathering.FormCreate(Sender: TObject);
begin
  IFmMain := (Application.MainForm as IMainForm);
  SvrGathering := IFmMain.GetConnection(Handle,'','ckSalesBase.SalesBase');
  LocSetting := IFmMain.IFmMainEx.GetLocSetting;
  CdsFieldProPerty := TCkClientDataSet.Create(Self);
  SetGressHint('正在连接到公用信息服务器...');
  SvrCommon:=IFmMain.GetConnection(Handle,'','CommonSvr.CommonRDM');
  CdsFieldProPerty.RemoteServer:=SvrCommon;
  CdsFieldProPerty.ProviderName:='DspTemp';
  CdsSelectGathering.RemoteServer := SvrGathering;
  CdsSelectGathering.Open;
end;

procedure TFrmSelectGathering.FormShow(Sender: TObject);
begin
  LoadFieldsLayOut(LocSetting^.FieldLayoutCfgFile, Name, [dbgGathering,dbgGatheringDtl]);
  SetGressHint('初始化本地环境...');
  SetGridEhColor([dbgGathering,dbgGatheringDtl]);
  SysFieldXml(CdsFieldProPerty,sFieldProPerty,'TFmSelectGathering.Xml');
  SetFieldProperty(CdsFieldProPerty,CdsSelectGathering,'Gathering');
  SetFieldProperty(CdsFieldProPerty,CdsSelectGatheringDtl,'GatheringDtl');
  FreeGressForm;
end;

procedure TFrmSelectGathering.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

function TFrmSelectGathering.FilterData: String;
Var
  SqlText:String;
begin
  SqlText:='';
  If ckBillNo.Checked Then
    If edBillNo.Text<>'' Then
      SqlText:=' BillNo Like '''+edBillNo.Text+'%''';
  If ckProvNo.Checked Then
    If edProvNo.Text<>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (CustNo Like '+''''+edProvNo.Text+'%'+''' Or CustName Like '+''''+edProvNo.Text+'%'+''')'
      Else
        SqlText:=' (CustNo Like '+''''+edProvNo.Text+'%'+''' Or CustName Like '+''''+edProvNo.Text+'%'+''')';
  If ckDate.Checked Then
    If SqlText<>'' Then
      SqlText:=SqlText+' OR (Fdate<= '+DateToStr(dtpEndDate.Date)+' And FDate>= '+DateToStr(dtpBeginDate.Date)+')'
    Else
      SqlText:=' (Fdate<= '+DateToStr(dtpEndDate.Date)+' And FDate>= '+DateToStr(dtpBeginDate.Date)+')';
  If ckEmpNo.Checked Then
    If edEmpNo.Text <>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (EmpNo Like '+''''+edEmpNo.Text+'%'+''' Or Name Like '+''''+edEmpNo.Text+'%'+''')'
      Else
        SqlText:=' (EmpNo Like '+''''+edEmpNo.Text+'%'+''' Or Name Like '+''''+edEmpNo.Text+'%'+''')';
  If ckCreater.Checked Then
    If edCreater.Text<>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (Creater Like '+''''+edCreater.text+'%'+''' Or CreateName Like '+''''+edCreater.Text+'%'+''')'
      Else
        SqlText:=' (Creater Like '+''''+edCreater.Text+'%'+''' Or CreateName Like '+''''+edCreater.Text+'%'+''')';
  Result:=SqlText;
end;

procedure TFrmSelectGathering.RzBitBtn2Click(Sender: TObject);
begin
  CdsSelectGathering.Filtered:= False;
  CdsSelectGathering.Filter := FilterData;
  CdsSelectGathering.Filtered := True;
end;

procedure TFrmSelectGathering.RzBitBtn1Click(Sender: TObject);
Var iCount : Integer;
begin
  If NOt(CanMulti) Then
    iCount := 0
  Else
    iCount := 1;
  If dbgGatheringDtl.SelectedRows.Count< iCount Then Begin
    MessageBox(Handle,Pchar('请选择应付款单据明细数据!'),'提示',64);
    Exit;
  End;
  ModalResult := mrOK;
end;

procedure TFrmSelectGathering.dbgGatheringDtlDblClick(Sender: TObject);
begin
  RzBitBtn1Click(niL);
end;

end.