spos.dpr

仓库管理系统 仓库管理系统

program spos;

uses
  Forms,
  Windows,
  MAIN in 'MAIN.PAS' {MainForm},
  dbmRainbowMis in 'FORM1209\dbmRainbowMis.pas' {dmRainbowMIS: TDataModule},
  dfm_password in 'FORM1209\dfm_password.pas' {dfmPassword},
  chHeadUnit in 'FORM1209\chHeadUnit.pas',
  f_branch in 'FORM1209\F_BRANCH.PAS' {dfmbranch},
  dfm_userinfo in 'FORM1209\dfm_userinfo.pas' {dfmuserinfo},
  dfm_groupinfo in 'FORM1209\dfm_groupinfo.pas' {dfmgroupinfo},
  dfm_saler in 'FORM1209\dfm_saler.pas' {dfmsaler},
  dfm_manrec in 'FORM1209\dfm_manrec.pas' {dfmmanrec},
  f_manchange in 'FORM1209\f_manchange.pas' {dfmmanchange},
  f_findman in 'FORM1209\f_findman.pas' {dfmfindman},
  dfm_tcheck in 'FORM1209\dfm_tcheck.pas' {dfmtcheck},
  f_xsfx in 'FORM1209\F_XSFX.PAS' {dfmxsfx},
  dfm_tray in 'FORM1209\DFM_TRAY.PAS' {dfmtray},
  dfm_seldate in 'FORM1209\dfm_seldate.pas' {dfmseldate},
  dfm_team in 'FORM1209\DFM_TEAM.PAS' {dfmteam},
  TreeFunc in 'FORM1209\TreeFunc.pas',
  dfm_ssaleno in 'FORM1209\dfm_ssaleno.pas' {dfmssaleno},
  f_stosearch in 'FORM1209\f_stosearch.pas' {dfmstosearch},
  dfm_syspwd in 'FORM1209\dfm_syspwd.pas' {dfmsyspwd},
  f_default in 'FORM1209\f_default.pas' {dfmdefault},
  dfm_repass in 'FORM1209\dfm_repass.pas' {dfmrePass},
  f_label in 'FORM1209\F_LABEL.PAS' {dfmlabel},
  f_specenter in 'FORM1209\f_specenter.pas' {dfmspecenter},
  dfm_sware in 'FORM1209\dfm_sware.pas' {dfmsware},
  dfm_price in 'FORM1209\dfm_price.pas' {dfmprice},
  f_storein in 'FORM1209\f_storein.pas' {dfmstorein},
  f_manoeuvre in 'FORM1209\f_manoeuvre.pas' {dfmmanoeuvre},
  dfm_sstoout in 'FORM1209\dfm_sstoout.pas' {dfmsstoout},
  dfm_sstoin in 'FORM1209\dfm_sstoin.pas' {dfmsstoin},
  dfm_check in 'FORM1209\dfm_check.pas' {dfmcheck},
  f_stocheck in 'FORM1209\f_stocheck.pas' {dfmstocheck},
  f_loss in 'FORM1209\F_LOSS.PAS' {dfmloss},
  dfm_updasto in 'FORM1209\dfm_updasto.pas' {dfmupdasto},
  dfm_creatbd in 'FORM1209\dfm_creatbd.pas' {dfmcreatdb},
  dfm_loop in 'FORM1209\DFM_LOOP.PAS' {dfmloop},
  dfm_stoset in 'FORM1209\dfm_stoset.pas' {dfmstoset},
  dfm_saledetail in 'FORM1209\dfm_saledetail.pas' {dfmsaledetail},
  dfm_saleset in 'FORM1209\dfm_saleset.pas' {dfmsaleset},
  dfm_extend in 'FORM1209\dfm_extend.pas' {dfmextend},
  dfm_money in 'FORM1209\dfm_money.pas' {dfmmoney},
  dfm_time in 'FORM1209\DFM_TIME.PAS' {dfmtime},
  dfm_smonth in 'FORM1209\dfm_smonth.pas' {dfmsmonth},
  f_dress in 'FORM1209\F_DRESS.PAS' {dfmdress},
  dfm_dresslis in 'FORM1209\dfm_dresslis.pas' {dfmsdress},
  dfm_bavre in 'FORM1209\dfm_bavre.pas' {dfmbavre},
  dfm_delstohst in 'FORM1209\dfm_delstohst.pas' {dfmdelstohst},
  f_update in 'FORM1209\F_UPDATE.PAS' {dfmupdate},
  dfm_backok in 'FORM1209\dfm_backok.pas' {dfmbackok},
  dfm_del in 'FORM1209\DFM_DEL.PAS' {dfmdel},
  dfm_start in 'FORM1209\dfm_start.pas' {dfmstart},
  Main_F in 'FORM1209\MAIN_F.PAS' {dfmdial},
  dfm_receive in 'FORM1209\dfm_receive.pas' {dfmreceive},
  dfm_transpara in 'FORM1209\dfm_transpara.pas' {dfmtranspara},
  about in 'FORM1209\ABOUT.PAS' {dfmabout},
  DialUp in 'E:\delphipack\dialup\DIALUP\DIALUP.PAS',
  dfm_tsaleno in 'FORM1209\dfm_tsaleno.pas' {dfmtsaleno},
  dfm_saldate in 'FORM1209\dfm_saldate.pas' {dfmdatesal};

{$R *.RES}
const classname='TMainForm'; {声明为主窗体的类名}
var handle:integer; {变量}

begin
{  handle:=findwindow(classname,nil);  //查找是否有此类的窗体
  if handle<>0 then //不为0则程序已运行
  begin
    messagebox(0,'该程序已经有一个在运行中！','运行',0);  //提示程序已运行
    halt; //退出程序
  end;  }
  
  Application.Initialize;
  dmRainbowMIS:=TdmRainbowMIS.Create(Application);
  dfmPassword:=TdfmPassword.Create(Application);
  sleep(1000);

  If dfmPassword.Execute Then Begin

  Application.Title := '服饰专卖店管理系统';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  End
  Else Begin
    Application.Terminate;
  End;

end.