snackdm.~pas

简单的餐饮软件部分源码

unit SnackDM;

interface

uses
  SysUtils, Classes,Inifiles, DB,ADODB;
type
  TDataM = class(TDataModule)
    SQLconADO: TADOConnection;
    UserADO: TADOQuery;
    recado: TADOQuery;
    mealdlado: TADOQuery;
    inmealdata: TDataSource;
    tempmealado: TADOQuery;
    billado: TADOQuery;
    mealado: TADOQuery;
    mealdata: TDataSource;
    mealxlado: TADOQuery;
    mealcountado: TADOQuery;
    keymealado: TADOQuery;
    tcado: TADOQuery;
    cashado: TADOQuery;
    mdlado: TADOQuery;
    mdldata: TDataSource;
    xlmealado: TADOQuery;
    xlmealdata: TDataSource;
    keynameado: TADOQuery;
    keynamedata: TDataSource;
    modelado: TADOQuery;
    seek2ado: TADOQuery;
    seek2data: TDataSource;
    kwado: TADOQuery;
    kwdata: TDataSource;
    adokw: TADOQuery;
    kwmemoado: TADOQuery;
    kwmemodata: TDataSource;
    adokwmemo: TADOQuery;
    reasonado: TADOQuery;
    reasondata: TDataSource;
    mealmemoado: TADOQuery;
    mealmemodata: TDataSource;
    suitado: TADOQuery;
    suitdata: TDataSource;
    seek3ado: TADOQuery;
    seek3data: TDataSource;
    snmealado: TADOQuery;
    insert3ado: TADOQuery;
    insert3data: TDataSource;
    freeado: TADOQuery;
    bfreeado: TADOQuery;
    cseekado: TADOQuery;
    cdata: TDataSource;
    morepayado: TADOQuery;
    delpayado: TADOQuery;
    delpaydata: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
   hotname,userid,Sqlname:string;
   inifilepath,xlanguagefilepath:string;
  public
    { Public declarations }
  SPflashpath,sppushmodelid:string;
  SPLanguage:Tinifile;
  ComputerName:string;
  end;
var
  DataM: TDataM;
  glog:Tinifile;
implementation
{$R *.dfm}
procedure TDataM.DataModuleCreate(Sender: TObject);
begin
DateSeparator:='-';
shortDateFormat:='yyyy/mm/dd';
inifilepath:=ExtractFilePath(Paramstr(0))+'Glog.ini';
glog:=Tinifile.Create(inifilepath);
hotname:=glog.ReadString('hotname','machname','');
userid:=glog.ReadString('hotname','logid','');
sqlname:=glog.ReadString('hotname','sqlserver','');
sppushmodelid:=glog.ReadString('hotname','pushid','');
spflashpath:=glog.ReadString('flashlog','picture','');
xlanguagefilepath:=glog.ReadString('language','filepath','');
SPLanguage:=TInifile.Create(xlanguagefilepath);
SqlconADO.ConnectionString:='Provider=SQLOLEDB.1;Password=gold768004829;Persist Security Info=True;User ID='''+userid+''';Initial Catalog='''+sqlname+''';Data Source='''+hotname+'''';
end;

end.