uproviders.pas

来自「医药连锁经营管理系统源码」· PAS 代码 · 共 524 行 · 第 1/2 页

unit uProviders;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl, RzTabs, Menus,
  ActnList, ModuleAction, ImgList, TB2Dock, ExtCtrls, RzPanel, Buttons,
  RzButton, TB2Item, TB2Toolbar, RzDBBnEd, RzRadChk, RzDBChk, RzDBEdit,
  StdCtrls, RzCmboBx, RzDBCmbo, Mask, RzEdit, ceBaseBillFrm, DB, DBClient,
  MConnect,RecError;

type
  TFmProviders = class(TceBaseBillForm)
    RzPage: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    xDBGridEh1: TxDBGridEh;
    xDBGridEh2: TxDBGridEh;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    edProvNo: TRzDBEdit;
    edName: TRzDBEdit;
    edPostCode: TRzDBEdit;
    edAccountBank: TRzDBEdit;
    edTaxNo: TRzDBEdit;
    edPermitNo: TRzDBEdit;
    edAccountNo: TRzDBEdit;
    edCompetency: TRzDBEdit;
    edLinkMan: TRzDBEdit;
    edMobile: TRzDBEdit;
    edCorpName: TRzDBEdit;
    edFax: TRzDBEdit;
    edLinkTel: TRzDBEdit;
    edCorpDuty: TRzDBEdit;
    edWorkingBound: TRzDBEdit;
    edWorkingMode: TRzDBEdit;
    edQualityPar: TRzDBEdit;
    edOwnerKind: TRzDBEdit;
    edSubjectDept: TRzDBEdit;
    edTrade: TRzDBComboBox;
    edRelation: TRzDBComboBox;
    edCredit: TRzDBNumericEdit;
    CkPause: TRzDBCheckBox;
    edArea: TRzDBButtonEdit;
    cmCoinKind: TRzDBEdit;
    edAddress: TRzDBEdit;
    RzDBEdit1: TRzDBEdit;
    Label24: TLabel;
    edRemark: TRzDBEdit;
    CdsProviders: TClientDataSet;
    CdsProvGoods: TClientDataSet;
    CdsProvLinkmans: TClientDataSet;
    DsProviders: TDataSource;
    DsProvGoods: TDataSource;
    DsProvLinkmans: TDataSource;
    CdsProvidersProvNo: TStringField;
    CdsProvidersProvName: TStringField;
    CdsProvidersFullName: TStringField;
    CdsProvidersABCKind: TStringField;
    CdsProvidersTrade: TStringField;
    CdsProvidersSubjectDept: TStringField;
    CdsProvidersWorkingMode: TStringField;
    CdsProvidersWorkingBound: TStringField;
    CdsProvidersCorpName: TStringField;
    CdsProvidersCorpDuty: TStringField;
    CdsProvidersOwnerKind: TStringField;
    CdsProvidersQualityPar: TStringField;
    CdsProvidersPermitNo: TStringField;
    CdsProvidersCompetency: TStringField;
    CdsProvidersArea: TStringField;
    CdsProvidersPostCode: TStringField;
    CdsProvidersAddress: TStringField;
    CdsProvidersLinkMan: TStringField;
    CdsProvidersMobile: TStringField;
    CdsProvidersLinkTel: TStringField;
    CdsProvidersFax: TStringField;
    CdsProvidersAccountBank: TStringField;
    CdsProvidersAccountNo: TStringField;
    CdsProvidersTaxNo: TStringField;
    CdsProvidersCredit: TIntegerField;
    CdsProvidersPayModeNo: TStringField;
    CdsProvidersPause: TBooleanField;
    CdsProvidersRemark: TStringField;
    CdsProvidersAdosProMan: TDataSetField;
    CdsProvidersAdosProGoods: TDataSetField;
    CdsProvGoodsGoodsid: TStringField;
    CdsProvGoodsPrice1: TBCDField;
    CdsProvGoodsPrice2: TBCDField;
    CdsProvGoodsRebate: TBCDField;
    CdsProvGoodsRemark: TStringField;
    CdsProvGoodsProvGoodsID: TStringField;
    CdsProvGoodsNearDate: TDateTimeField;
    CdsProvGoodsname: TStringField;
    CdsProvGoodsProvNo: TStringField;
    CdsProvLinkmansProvNo: TStringField;
    CdsProvLinkmansLinkMan: TStringField;
    CdsProvLinkmansNickName: TStringField;
    CdsProvLinkmansSex: TStringField;
    CdsProvLinkmansBirthday: TDateTimeField;
    CdsProvLinkmansDept: TStringField;
    CdsProvLinkmansDuty: TStringField;
    CdsProvLinkmansAddress: TStringField;
    CdsProvLinkmansTel1: TStringField;
    CdsProvLinkmansTel2: TStringField;
    CdsProvLinkmansMobile: TStringField;
    CdsProvLinkmansOICQ: TStringField;
    CdsProvLinkmansEMail: TStringField;
    CdsProvLinkmansRemark: TStringField;
    CdsFields: TClientDataSet;
    CdsFieldsTableName: TStringField;
    CdsFieldsFieldName: TStringField;
    CdsFieldsDispLabel: TStringField;
    CdsFieldsDispFormat: TStringField;
    CdsFieldsRequisite: TBooleanField;
    CdsFieldsDataType: TStringField;
    CdsFieldsdLength: TIntegerField;
    CdsFieldsState: TStringField;
    CdsProvGoodsSpecs: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure ActCancelExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure CdsProvGoodsNewRecord(DataSet: TDataSet);
    procedure CdsProvLinkmansNewRecord(DataSet: TDataSet);
    procedure ActAddSubItemExecute(Sender: TObject);
    procedure ActDelSubItemExecute(Sender: TObject);
    procedure xDBGridEh1Columns0EditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure CdsProvidersReconcileError(DataSet: TCustomClientDataSet;
      E: EReconcileError; UpdateKind: TUpdateKind;
      var Action: TReconcileAction);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActRefershExecute(Sender: TObject);
    procedure xDBGridEh2ColExit(Sender: TObject);
    procedure CdsProvGoodsBeforeApplyUpdates(Sender: TObject;
      var OwnerData: OleVariant);
    procedure CdsProvLinkmansBeforeApplyUpdates(Sender: TObject;
      var OwnerData: OleVariant);
    procedure ActInsertExecute(Sender: TObject);
    procedure CdsProvGoodsPrice1Change(Sender: TField);
    procedure xDBGridEh1ColExit(Sender: TObject);
  private
    procedure DispFeildName(CFields:TclientDataset;STblName:String;TableName:TClientDataset;Var Title:String;TitleMark:integer);
    procedure CheckFields(CFields:TclientDataSet;CdsDataSet:TClientDataSet;TableNameAndConDitions:String;var CheckMark:Boolean;TableState:Integer);
    Procedure SetDbgReadOnly(ReadOnly:Boolean);
  public

  end;

var
  FmProviders: TFmProviders;

implementation

{$R *.dfm}

procedure TFmProviders.DispFeildName(CFields:TclientDataset;STblName:String;TableName:TClientDataset;Var Title:String;TitleMark:integer);
var Col:integer;
begin
{
    CFields    字段属性字典数据集
    STblName   目的表名
    TableName  与目的表名对应的数据集
    Var Title  可返回目的表的标题
    TitleMark  1表示是主表  其它则不是主表
}
  if TitleMark=1 then
  begin
    if CFields.Locate('TableName;DispFormat',varArrayof([STblName,'TITLE']),[loPartialKey]) then
       Title := CFields.FieldByName('DispLabel').AsString;
       Exit;
  end;
  for col:=0 to TableName.FieldCount-1 do
  begin
    if CFields.Locate('TableName;FieldName',varArrayof([STblName,TableName.Fields[col].FieldName]),[loPartialKey]) then
       if (TableName.Fields[col].DisplayLabel<>CFields.FieldByName('DispLabel').AsString) and (Trim(CFields.FieldByName('DispLabel').AsString)<>'')then
          TableName.Fields[col].DisplayLabel := CFields.FieldByName('DispLabel').AsString;
  end;
end;

procedure TFmProviders.FormCreate(Sender: TObject);
var TitleName:String;
begin
  inherited;
  MasterDataSet := CdsProviders;
  DispFeildName(CdsFields,'ProvGoods',CdsProvGoods,TitleName,1);
  RzPage.Pages[0].Caption := TitleName;
  DispFeildName(CdsFields,'ProvLinkmans',CdsProvLinkmans,TitleName,1);
  RzPage.Pages[1].Caption := TitleName;
  DispFeildName(CdsFields,'ProvGoods',CdsProvGoods,TitleName,0);
  DispFeildName(CdsFields,'ProvLinkmans',CdsProvLinkmans,TitleName,0);
  DispFeildName(CdsFields,'Goodses',CdsProvGoods,TitleName,0);
end;

procedure TFmProviders.ActCancelExecute(Sender: TObject);
begin
  inherited;
  CdsProvGoods.ReadOnly := True;
  CdsProvLinkmans.ReadOnly := True;
end;

procedure TFmProviders.ActUpdateExecute(Sender: TObject);
begin
  inherited;
  CdsProvGoods.ReadOnly := False;
  CdsProvLinkmans.ReadOnly := False;
  CdsProviders.Edit;
//  CdsProvGoods.Edit;
//  CdsProvLinkmans.Edit;
end;

procedure TFmProviders.ActSaveExecute(Sender: TObject);
var CheckA,CheckB,CheckC :Boolean;
begin
    if FEditMode=0 then Exit;
    CheckA := False;CheckB := False;CheckC := False;
    if CdsProviders.State=dsEdit then CdsProviders.Post;
    if CdsProvGoods.State=dsEdit then CdsProvGoods.Post;
    if CdsProvLinkmans.State=dsEdit then CdsProvLinkmans.Post;
    CheckFields(CdsFields,CdsProviders,'Providers',CheckA,0);
    CheckFields(CdsFields,CdsProvGoods,'ProvGoods',CheckB,1);
    CheckFields(CdsFields,CdsProvLinkmans,'ProvLinkmans',CheckC,1);
    if CheckA or CheckB or CheckC Then Exit;
    if CdsProviders.ApplyUpdates(0)>0 then
      SetDbgReadOnly(False)
    Else begin
     SetDbgReadOnly(True);
     inherited;
    end;
end;

procedure TFmProviders.CdsProvGoodsNewRecord(DataSet: TDataSet);
begin
  inherited;
  CdsProvGoodsProvNo.Value := CdsProvidersProvNo.Value;
  CdsProvGoodsNearDate.Value := Date;
end;