uni_dm.pas

来自「一个非常不错的经费报销管理软件」· PAS 代码 · 共 164 行

unit Uni_DM;

interface

uses
  Forms,SysUtils, Classes, ImgList, Controls, DB, ADODB;

type
  TDM = class(TDataModule)
    ImageList1: TImageList;
    Server: TADOConnection;
    bsBranchs: TADOQuery;
    bsUser: TADOQuery;
    bsTieinSetup: TADOQuery;
    bsTieinSetupZtbm: TStringField;
    bsTieinSetupZtmc: TStringField;
    bsTieinSetupServer: TStringField;
    bsTieinSetupDataBase: TStringField;
    bsTieinSetupUser: TStringField;
    bsTieinSetupPassword: TStringField;
    Server_Tiein: TADOConnection;
    bsBranchsID: TStringField;
    bsBranchscNum: TStringField;
    bsBranchscNAME: TStringField;
    bsBranchscTeL: TStringField;
    bsBranchscAddress: TStringField;
    bsBranchstPurview: TMemoField;
    bsBranchsiGrade: TIntegerField;
    bsBranchsiState: TIntegerField;
    bsUserID: TStringField;
    bsUsercBranchsID: TStringField;
    bsUsercName: TStringField;
    bsUsercPassword: TStringField;
    bsUsertPurview: TMemoField;
    bsUseriState: TIntegerField;
    R9bmxx: TADOQuery;
    bsTiein_Branchs: TADOQuery;
    bsItem: TADOQuery;
    bsItemid: TStringField;
    bsItemcNum: TStringField;
    bsItemcName: TStringField;
    bsItemcQuick: TStringField;
    bsItemiGrade: TIntegerField;
    bsItemiState: TIntegerField;
    bsWorkStation: TADOQuery;
    bsWorkStationID: TStringField;
    bsWorkStationcWSName: TStringField;
    bsWorkStationcIP: TStringField;
    bsWorkStationiState: TIntegerField;
    bsWorkStationiBranchsID: TStringField;
    R9GL_Kmxx: TADOQuery;
    bsTiein_Item: TADOQuery;
    bsPlanHost: TADOQuery;
    bsPlanMX: TADOQuery;
    bsPlanHostid: TStringField;
    bsPlanHostcNum: TStringField;
    bsPlanHostcBranchsNum: TStringField;
    bsPlanHostcSaveUser: TStringField;
    bsPlanHostcAuditUser: TStringField;
    bsPlanHostdtSaveTime: TDateTimeField;
    bsPlanHostdtAuditTime: TDateTimeField;
    bsPlanHostiState: TIntegerField;
    bsPlanHostiReco: TLargeintField;
    bsPlanHostcUse: TStringField;
    bsPlanHostcRemark: TStringField;
    bsPlanMXid: TStringField;
    bsPlanMXcNum: TStringField;
    bsPlanMXcItemNum: TStringField;
    bsPlanMXcbranchsNum: TStringField;
    bsPlanMXfMancount: TFloatField;
    bsPlanMXfStandard: TFloatField;
    bsPlanMXfPlanMoney: TFloatField;
    bsPlanMXiState: TIntegerField;
    bsPlanHostcBranchsName: TStringField;
    bsPlanMXcItemName: TStringField;
    bsPlanMXcItemNO: TStringField;
    bsPlanMXcBranchsName: TStringField;
    bsLoginUser: TADOQuery;
    bsUsercBranchsName: TStringField;
    bsPurviewList: TADOQuery;
    bsLoginUserID: TStringField;
    bsLoginUsercBranchsID: TStringField;
    bsLoginUsercName: TStringField;
    bsLoginUsercPassword: TStringField;
    bsLoginUsertPurview: TMemoField;
    bsLoginUseriState: TIntegerField;
    qryPub: TADOQuery;
    bsBook: TADOQuery;
    bsPurview: TADOQuery;
    bsPlanMXcBranchsNO: TStringField;
    bsBookid: TStringField;
    bsBookdtDateTime: TDateTimeField;
    bsBookcOperation: TStringField;
    bsBookcBillNum: TStringField;
    bsBookcBranchsNum: TStringField;
    bsBookcItemNum: TStringField;
    bsBookfManCount: TFloatField;
    bsBookfStandard: TFloatField;
    bsBookfBeginPlanMoney: TFloatField;
    bsBookfMoney: TFloatField;
    bsBookfEndPlanMoney: TFloatField;
    bsBookiState: TIntegerField;
    bsBookcztName: TStringField;
    bsBookcItemName: TStringField;
    bsPurviewID: TLargeintField;
    bsPurviewListID: TLargeintField;
    bsPurviewcName: TStringField;
    bsPurviewcFrmName: TStringField;
    bsPurviewcUserID: TStringField;
    bsPurviewBVisible: TBooleanField;
    procedure bsPlanHostAfterScroll(DataSet: TDataSet);
    procedure bsPlanMXAfterInsert(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure bsUserAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}
uses Uni_function,Uni_Login,Uni_Plan;

procedure TDM.bsPlanHostAfterScroll(DataSet: TDataSet);
begin
  bsPlanMX.Close;
  bsPlanMX.SQL.Text:='select *from bsPlanMX where iState>0 and cNum='+QuotedStr(bsPlanHost.FieldByName('cNum').AsString);
  bsPlanMX.Open;
  Frm_Plan.TBState.ImageIndex:=bsPlanHost.FieldByName('iState').AsInteger-1;
end;

procedure TDM.bsPlanMXAfterInsert(DataSet: TDataSet);
begin
  try
    bsPlanMX.Edit;
    bsPlanMX.FieldByName('id').AsString:=GetGUID;
    bsPlanMX.Post;
  except
  end;

end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  Server.Connected:=False;

end;

procedure TDM.bsUserAfterScroll(DataSet: TDataSet);
begin
  bsPurview.Close;
  bsPurview.SQL.Text:='select *from bsPurview where cUserID='
                     +QuotedStr(bsUser.FieldByName('id').AsString);
  bsPurview.Open;
  
end;

end.