syssettingfrm.pas

群星医药系统源码

unit SysSettingFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, ckDBClient, Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl, RzButton,
  ExtCtrls, RzPanel, RzTabs, MConnect, IMainFrm, xBaseFrm, StdCtrls, Mask,
  RzEdit, RzCmboBx, RzDBEdit, RzRadChk, RzDBChk, RzDBBnEd, RzLabel,
  RzRadGrp, SelectTrackType, ComCtrls, RzDTP, ceGlobal;

type
  TFmSysSetting = class(TxBaseForm)
    PageCtrl: TRzPageControl;
    TabSheet2: TRzTabSheet;
    RzPanel1: TRzPanel;
    Panel1: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    cdsBillSetting: TckClientDataSet;
    dsBillSetting: TDataSource;
    cdsBillSettingBillType: TStringField;
    cdsBillSettingBillDescr: TStringField;
    cdsBillSettingPrefix: TStringField;
    cdsBillSettingDBScanRange: TSmallintField;
    cdsBillSettingDBModiRange: TSmallintField;
    cdsBillSettingRemark: TStringField;
    TabSheet1: TRzTabSheet;
    dsSysSetting: TDataSource;
    cdsSysSetting: TckClientDataSet;
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    PchPriceMode: TRzComboBox;
    SelPriceMode: TRzComboBox;
    RtlPriceMode: TRzComboBox;
    RzNumericEdit1: TRzDBNumericEdit;
    RzNumericEdit2: TRzDBNumericEdit;
    RzNumericEdit3: TRzDBNumericEdit;
    RzGroupBox2: TRzGroupBox;
    UpdPchPriceMode: TRzComboBox;
    UpdSelPriceMode: TRzComboBox;
    Label8: TLabel;
    Label9: TLabel;
    edInDepotName: TRzDBButtonEdit;
    edOutDepotName: TRzDBButtonEdit;
    Label10: TLabel;
    Label11: TLabel;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzCheckBox3: TRzDBCheckBox;
    RzCheckBox4: TRzDBCheckBox;
    cdsSysSettingAutoUniteStk: TBooleanField;
    cdsSysSettingKindNoFormat: TStringField;
    cdsSysSettingDepartNoFormat: TStringField;
    cdsSysSettingDepotNoFormat: TStringField;
    cdsSysSettingPchPriceMode: TIntegerField;
    cdsSysSettingPchPriceModulus: TBCDField;
    cdsSysSettingSelPriceMode: TIntegerField;
    cdsSysSettingSelPriceModulus: TBCDField;
    cdsSysSettingRtlPriceMode: TIntegerField;
    cdsSysSettingRtlPriceModulus: TBCDField;
    cdsSysSettingUpdPchPriceMode: TIntegerField;
    cdsSysSettingUpdSelPriceMode: TIntegerField;
    cdsSysSettingAutoUpdProvGoods: TBooleanField;
    cdsSysSettingAutoUpdCustGoods: TBooleanField;
    cdsSysSettingDefStockInDepot: TIntegerField;
    cdsSysSettingdefStockOutDepot: TIntegerField;
    cdsSysSettingValidDateCheckDay: TIntegerField;
    cdsSysSettingGoodsTendCheckDay: TIntegerField;
    cdsSysSettingStartDate: TDateTimeField;
    cdsSysSettingMonthFootDay: TSmallintField;
    cdsSysSettingCurrMonth: TDateTimeField;
    cdsSysSettingFlag: TIntegerField;
    edStartDate: TRzDateTimePicker;
    Label13: TLabel;
    BtnStart: TRzBitBtn;
    cdsSysSettingInDepotName: TStringField;
    cdsSysSettingOutDepotName: TStringField;
    gbStartParam: TRzGroupBox;
    Label7: TLabel;
    Label12: TLabel;
    RzDBNumericEdit1: TRzDBNumericEdit;
    RzDBCheckBox1: TRzDBCheckBox;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    cdsTemp: TckClientDataSet;
    cdsSysSettingMsgServerIP: TStringField;
    GroupBox2: TRzGroupBox;
    RzLabel1: TRzLabel;
    Label17: TLabel;
    edMsgSvrIP: TRzDBEdit;
    TabSheet3: TRzTabSheet;
    RzPanel2: TRzPanel;
    DataItem: TRzRadioGroup;
    RzPanel3: TPanel;
    grdInfo: TxDBGridEh;
    cdsInfo: TckClientDataSet;
    dsInfo: TDataSource;
    DCOMConn: TDCOMConnection;
    Panel2: TPanel;
    dbgBillSetting: TxDBGridEh;
    cdsBillSettingInsTrackType: TStringField;
    cdsBillSettingUpdTrackType: TStringField;
    cdsBillSettingDelTrackType: TStringField;
    cdsBillSettingTrackFlag: TStringField;
    chkEligibleEqualAll: TRzDBCheckBox;
    CHKIsExclude: TRzDBCheckBox;
    cdsSysSettingEligibleEqualAll: TBooleanField;
    cdsSysSettingCheckinExclude: TBooleanField;
    procedure FormCreate(Sender: TObject);
    procedure cdsBillSettingDBScanRangeGetText(Sender: TField;
      var Text: String; DisplayText: Boolean);
    procedure cdsBillSettingDBScanRangeSetText(Sender: TField;
      const Text: String);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure edInDepotNameButtonClick(Sender: TObject);
    procedure edOutDepotNameButtonClick(Sender: TObject);
    procedure edInDepotNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edOutDepotNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure UpdPchPriceModeChange(Sender: TObject);
    procedure BtnStartClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure cdsSysSettingAfterOpen(DataSet: TDataSet);
    procedure DataItemChanging(Sender: TObject; NewIndex: Integer;
      var AllowChange: Boolean);
    procedure FormShow(Sender: TObject);
    procedure PageCtrlChange(Sender: TObject);
    procedure RzPanel2Resize(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dbgBillSettingEditButtonClick(Sender: TObject);
    procedure dbgBillSettingKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    IFmMain: IMainForm;
    SvrSysManage: TDispatchConnection;
    PriceModeNos, PriceModeNames: TStrings;
    procedure FillPriceModes;
  public
    { Public declarations }
  end;

var
  FmSysSetting: TFmSysSetting;

implementation

uses SelectDepotFrm, ShowProGress;

{$R *.dfm}

procedure TFmSysSetting.FormCreate(Sender: TObject);
begin
  Inherited;
  PriceModeNos := TStringList.Create;
  PriceModeNames := TStringList.Create;
  IFmMain := Application.MainForm as IMainForm;
  SetGressHint('正在连接应用服务器...');
  SvrSysManage := IFmMain.GetConnection(Handle, '', 'ckSysManager.ModuleSetting');
  cdsSysSetting.RemoteServer  := SvrSysManage;
  cdsBillSetting.RemoteServer := SvrSysManage;
  cdsTemp.RemoteServer := SvrSysManage;
  cdsInfo.RemoteServer := SvrSysManage;
  FillPriceModes;
  cdsSysSetting.Open;
  cdsBillSetting.Open;
   dbgBillSetting.SetAutoSort('');
  //cdsInfo.Open;
end;

procedure TFmSysSetting.FormShow(Sender: TObject);
begin
  SetGressHint('初始化本地环境...');
  PageCtrl.TabIndex := 0;
  SetGridEhColor([dbgBillSetting,grdInfo]);
  dbgBillSetting.SetAutoSort('');
  grdInfo.SetAutoSort('');
  FreeGressForm;
end;

procedure TFmSysSetting.FormDestroy(Sender: TObject);
begin
  PriceModeNos.Free;
  PriceModeNames.Free;
  Inherited;
end;

procedure TFmSysSetting.cdsBillSettingDBScanRangeGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
var i, k: Integer;
    sList: TStrings;
begin
  sList := dbgBillSetting.FieldColumns[Sender.FieldName].PickList;
  k := sList.Count-1;
  i := Sender.AsInteger;
  if (i<0)or(i>k) then
    Text := '请设定'
  else
    Text := sList[i];
end;

procedure TFmSysSetting.cdsBillSettingDBScanRangeSetText(Sender: TField;
  const Text: String);
var i: Integer;
    sList: TStrings;
begin
  sList := dbgBillSetting.FieldColumns[Sender.FieldName].PickList;
  i := sList.IndexOf(Text);
  if i<0 then i:=0;
  Sender.Value := i;
end;

procedure TFmSysSetting.RzBitBtn1Click(Sender: TObject);
begin
  if PageCtrl.TabIndex=0 then begin
    if cdsSysSetting.ApplyUpdates(0)>0 then
      Application.MessageBox('数据更新失败！', '消息', MB_ICONINFORMATION);
  end else
  if PageCtrl.TabIndex=1 then begin
    if cdsBillSetting.ApplyUpdates(0)>0 then
      Application.MessageBox('数据更新失败！', '消息', MB_ICONINFORMATION);
  end;
end;

procedure TFmSysSetting.RzBitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFmSysSetting.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var b1, b2: Boolean;