udatamo.pas

天涯進銷存系統

unit uDataMo;

interface

uses
  SysUtils, Classes, DBXpress, DB, SqlExpr, DBClient, SimpleDS,
  Forms, FMTBcd,Messages;

type
  TdmData = class(TDataModule)
    SQLConnection: TSQLConnection;
    sdsSysinfo: TSimpleDataSet;
    sdsPublic: TSimpleDataSet;
    dsSysinfo: TDataSource;
    sdsClientinfo: TSimpleDataSet;
    dsClientinfo: TDataSource;
    sdsClientinfoCODE: TStringField;
    sdsClientinfoCLIENTNAME: TStringField;
    sdsClientinfoENGNAME: TStringField;
    sdsClientinfoLINKMAN: TStringField;
    sdsClientinfoLINKPHONE: TStringField;
    sdsClientinfoFAX: TStringField;
    sdsClientinfoHANDSET: TStringField;
    sdsClientinfoADDRESS: TStringField;
    sdsClientinfoPOSTCODE: TStringField;
    sdsClientinfoEMAIL: TStringField;
    sdsClientinfoURL: TStringField;
    sdsClientinfoPREPAYSUM: TBCDField;
    sdsClientinfoARREARAGESUM: TBCDField;
    sdsClientinfoREIMBURSESUM: TBCDField;
    sdsClientinfoPAYMENTSUM: TBCDField;
    sdsClientinfoBANK: TStringField;
    sdsClientinfoBANKCODE: TStringField;
    sdsClientinfoBANKACCOUNTNAME: TStringField;
    sdsClientinfoGSREGCODE: TStringField;
    sdsClientinfoTAXCODE: TStringField;
    sdsClientinfoMOSTLYOPERATION: TStringField;
    sdsClientinfoCLIENTTYPE: TStringField;
    sdsClientinfoISINSIDER: TStringField;
    sdsClientinfoINSIDERCODE: TStringField;
    sdsClientinfoINSIDERTYPE: TStringField;
    sdsClientinfoMAXTICKSUM: TBCDField;
    sdsClientinfoDEL: TStringField;
    sdsClientinfoMEMO: TStringField;
    sdsFind: TSimpleDataSet;
    dsFind: TDataSource;
    sdsProviderinfo: TSimpleDataSet;
    dsProviderinfo: TDataSource;
    sdsPartinfo: TSimpleDataSet;
    dsPartinfo: TDataSource;
    sdsPartinfoCODE: TStringField;
    sdsPartinfoBORNCODE: TStringField;
    sdsPartinfoNAME: TStringField;
    sdsPartinfoPRODUCING: TStringField;
    sdsPartinfoCARMODEL: TStringField;
    sdsPartinfoPARTTYPE: TStringField;
    sdsPartinfoUNITS: TStringField;
    sdsPartinfoMAXSTOCK: TBCDField;
    sdsPartinfoMINSTOCK: TBCDField;
    sdsPartinfoINPUTPRICE: TBCDField;
    sdsPartinfoOUTPOUTPRICE: TBCDField;
    sdsPartinfoTRADEPRICE: TBCDField;
    sdsPartinfoPREFERENTIAL: TBCDField;
    sdsPartinfoFOREIGNPRICE: TBCDField;
    sdsPartinfoFOREIGNTYPE: TStringField;
    sdsPartinfoDEPOTPLACE: TStringField;
    sdsPartinfoHELPNOTENO: TStringField;
    sdsPartinfoSTOCKPRICE: TBCDField;
    sdsPartinfoSALEPRICE: TBCDField;
    sdsPartinfoSTOCKDATE: TSQLTimeStampField;
    sdsPartinfoSALEDATE: TSQLTimeStampField;
    sdsPartinfoBILLQUANTITY: TBCDField;
    sdsPartinfoSTOCKQUANTITY: TBCDField;
    sdsPartinfoCOSTPRICE: TBCDField;
    sdsPartinfoIMAGE: TBlobField;
    sdsPartinfoMEMO: TStringField;
    sdsPartinfoDEL: TStringField;
    sdsInterconvertPart: TSimpleDataSet;
    dsInterconvertPart: TDataSource;
    sdsSelectPart: TSimpleDataSet;
    dsSelectPart: TDataSource;
    ExistData: TClientDataSet;
    SQLQuery: TSQLQuery;
    sdsStorage: TSimpleDataSet;
    dsStorage: TDataSource;
    sdsDepartment: TSimpleDataSet;
    dsDepartment: TDataSource;
    sdsEmployee: TSimpleDataSet;
    dsEmployee: TDataSource;
    sdsEmployeeCODE: TStringField;
    sdsEmployeeNAME: TStringField;
    sdsEmployeeSEX: TStringField;
    sdsEmployeeBIRTHDAY: TSQLTimeStampField;
    sdsEmployeeNATIVEPLACE: TStringField;
    sdsEmployeeIDCARD: TStringField;
    sdsEmployeeLITERACY: TStringField;
    sdsEmployeeDWELLING: TStringField;
    sdsEmployeeHANDSET: TStringField;
    sdsEmployeeLINKPHONE: TStringField;
    sdsEmployeeDEPT: TStringField;
    sdsEmployeeBASICLABORAGE: TBCDField;
    sdsEmployeeBJOBLABORAGE: TBCDField;
    sdsEmployeeJTIMELABORAGE: TBCDField;
    sdsEmployeeJOB: TStringField;
    sdsEmployeeISRMMAN: TStringField;
    sdsEmployeeISOPERATION: TStringField;
    sdsEmployeeJOBCLASS: TStringField;
    sdsEmployeeMEMO: TStringField;
    sdsBaseData: TSimpleDataSet;
    dsBaseData: TDataSource;
    sdsSelectProvider: TSimpleDataSet;
    dsSelectProvider: TDataSource;
    sdsSelectClient: TSimpleDataSet;
    dsSelectClient: TDataSource;
    sdsPub: TSimpleDataSet;
    sdsPri: TSimpleDataSet;
    sdsFilialeinfo: TSimpleDataSet;
    dsFilialeinfo: TDataSource;
    sdsFilialeinfoFILIALECODE: TStringField;
    sdsFilialeinfoFILIALENAME: TStringField;
    sdsFilialeinfoPHONE: TStringField;
    sdsFilialeinfoADDRESS: TStringField;
    sdsFilialeinfoLINKMAN: TStringField;
    sdsFilialeinfoINPUTSUM: TBCDField;
    sdsFilialeinfoMEMO: TStringField;
    sdsFilialeinfoDEL: TStringField;
    sdsFilialeinfoOUTPUTSUM: TBCDField;
    sdsPartinfoENNAME: TStringField;
    sdsProviderinfoCODE: TStringField;
    sdsProviderinfoENGNAME: TStringField;
    sdsProviderinfoLINKMAN: TStringField;
    sdsProviderinfoLINKPHONE: TStringField;
    sdsProviderinfoFAX: TStringField;
    sdsProviderinfoHANDSET: TStringField;
    sdsProviderinfoADDRESS: TStringField;
    sdsProviderinfoPOSTCODE: TStringField;
    sdsProviderinfoEMAIL: TStringField;
    sdsProviderinfoURL: TStringField;
    sdsProviderinfoPREPAYSUM: TBCDField;
    sdsProviderinfoARREARAGESUM: TBCDField;
    sdsProviderinfoREIMBURSESUM: TBCDField;
    sdsProviderinfoPAYMENTSUM: TBCDField;
    sdsProviderinfoBANK: TStringField;
    sdsProviderinfoBANKCODE: TStringField;
    sdsProviderinfoBANKACCOUNTNAME: TStringField;
    sdsProviderinfoGSREGCODE: TStringField;
    sdsProviderinfoTAXCODE: TStringField;
    sdsProviderinfoMOSTLYOPERATION: TStringField;
    sdsProviderinfoMAXTICKSUM: TBCDField;
    sdsProviderinfoPROVIDERTYPE: TStringField;
    sdsProviderinfoDEL: TStringField;
    sdsProviderinfoMEMO: TStringField;
    sdsProviderinfoPROVIDERNAME: TStringField;
    sdsSysinfoCORPCODE: TStringField;
    sdsSysinfoCORPNAME: TStringField;
    sdsSysinfoENGNAME: TStringField;
    sdsSysinfoADDRESS: TStringField;
    sdsSysinfoPOSTCODE: TStringField;
    sdsSysinfoPHONECODE: TStringField;
    sdsSysinfoFAX: TStringField;
    sdsSysinfoEMAIL: TStringField;
    sdsSysinfoURL: TStringField;
    sdsSysinfoBANKNAME: TStringField;
    sdsSysinfoBANKCODE: TStringField;
    sdsSysinfoBANKUSERNAME: TStringField;
    sdsSysinfoTAXCODE: TStringField;
    sdsSysinfoREPMODE: TStringField;
    sdsSysinfoISINSIDERSYS: TStringField;
    sdsSysinfoCOSTPRICEMODE: TStringField;
    sdsSysinfoISSTOCKNEG: TStringField;
    sdsSysinfoPARTCESS: TBCDField;
    sdsSysinfoWORKTIMECESS: TBCDField;
    sdsSysinfoINSIDERSTR: TStringField;
    sdsSysinfoINSIDERSIZE: TStringField;
    sdsSysinfoBALANCECURRENCY: TStringField;
    sdsSysinfoISNEW: TStringField;
    sdsSysinfoMAXAGIOSUM: TBCDField;
    sdsSysinfoMEMO: TStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure sdsPartinfoAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmData: TdmData;

implementation

uses uPublicvar, uConst, uMain;
{$R *.dfm}

procedure TdmData.DataModuleCreate(Sender: TObject);
begin
  try
    
    SQLConnection.Connected:=False;
    SQLConnection.ConnectionName:='SQLServerConnection';
    SQLConnection.DriverName:='sqlserver';
    SQLConnection.Params.Clear;
    SQLConnection.Params.Values['HostName']:=trim(computer);
    SQLConnection.Params.Values['Database']:=trim(DatabaseName);
    SQLConnection.Params.Values['User_Name']:=trim(serveruser);
    SQLConnection.Params.Values['Password']:=trim(serverpassword);
    SQLConnection.Connected:=True;
    OpenData('select * from SYSINFO', sdsSysinfo);
    with sdsSysinfo do
    begin
      CurrencyName :=Fieldbyname('BalanceCurrency').asstring;
      ComDepotCode :=Fieldbyname('CorpCode').asstring;
      MaxAgiosum   :=Fieldbyname('MaxAgiosum').asfloat;
    end;
  except
    Application.MessageBox('连接数据库错误。', Errorinfo ,$30);
    DataModuleDestroy(Sender);
    Application.Terminate;
    Halt;
  end;
end;

procedure TdmData.DataModuleDestroy(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to dmData.ComponentCount-1 do
  begin
    if  dmData.Components[i] is TSimpleDataSet then
       TSimpleDataSet(dmData.Components[i]).Close;
  end;
//  SavePartData.Free;
  SQLConnection.Connected:=False;
end;

procedure TdmData.sdsPartinfoAfterScroll(DataSet: TDataSet);
begin
  OpenData('select * from interconvertPart where ICode='+
           #39+sdsPartInfo.Fieldbyname('Code').asstring+#39,
           sdsInterconvertPart);
  sdsInterconvertPart.Edit;
end;

end.