pro_man_sys.~dpr

delphi 生产管理系统 sql2000位后台数据库

program Pro_Man_sys;

uses
  Forms,
  inifiles,
  windows,
  sysutils,
  Main in 'Main.pas' {Frm_main},
  share in 'share.pas',
  KC in 'KC.pas' {Frm_KC},
  Fnxiu_Write in 'Fnxiu_Write.pas' {Frm_fanxiu_write},
  BanChengPin_Write in 'BanChengPin_Write.pas' {Frm_banchengpin_write},
  MoKuai_Write in 'MoKuai_Write.pas' {Frm_MoKuai_write},
  ChengPin_Write in 'ChengPin_Write.pas' {Frm_chengpin_write},
  Zhcx in 'Zhcx.pas' {Frm_zhcx},
  popmanage in 'popmanage.pas' {Frm_popmanage},
  usermanager in 'usermanager.pas' {Frm_usermanager},
  Fahuo_Write in 'Fahuo_Write.pas' {Frm_fahuo_write},
  KCCX in 'KCCX.pas' {Frm_KCCX},
  DM in 'DM.pas' {Frm_dm: TDataModule},
  login in 'Login.pas' {frm_login},
  pass in 'pass.pas' {frm_pass},
  manage in 'manage.pas' {Frm_manage};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrm_dm, Frm_dm);
  frm_login:=Tfrm_login.Create(Application);//你的登录窗口，为普通窗体。
  frm_login.ShowModal;
  try
    if frm_login.ModalResult =1 then
    begin
      Application.CreateForm(TFrm_main, Frm_main);
      Application.Run;
    end;
  finally
    frm_login.Free;
    application.Terminate;
  end;
end.