materialmg.dpr

这是用delphi开发的一个物资管理信息系统

program MaterialMG;

uses
  Forms,
  windows,
  main in 'main.pas' {mainfrm},
  login in 'login.pas' {loginfrm},
  supplier in 'supplier.pas' {supplierfrm},
  placefind in 'placefind.pas' {placefindfrm},
  move in 'move.pas' {showfrm},
  storeoperate in 'storeoperate.pas' {storeoperatefrm},
  instore in 'instore.pas' {instorefrm},
  instorefind in 'instorefind.pas' {instorefindfrm},
  stat in 'stat.pas' {statfrm},
  plan in 'plan.pas' {planfrm},
  production in 'production.pas' {productionfrm},
  place in 'place.pas' {placefrm},
  outstore in 'outstore.pas' {outstorefrm},
  outstorefind in 'outstorefind.pas' {outstorefindfrm},
  dblink in 'dblink.pas' {dblinkfrm},
  userhold in 'userhold.pas' {userholdfrm},
  useradd in 'useradd.pas' {useraddfrm},
  backup in 'backup.pas' {backupfrm},
  storefind in 'storefind.pas' {storefindfrm},
  operator in 'operator.pas' {operatorfrm},
  datamodule in 'datamodule.pas' {DataMod: TDataModule},
  usertable_unit in 'usertable_unit.pas',
  supplier_unit in 'supplier_unit.pas',
  product_unit in 'product_unit.pas',
  place_unit in 'place_unit.pas',
  operator_unit in 'operator_unit.pas',
  list_unit in 'list_unit.pas',
  store_unit in 'store_unit.pas',
  plan_unit in 'plan_unit.pas',
  store_table in 'store_table.pas' {store_tablefrm},
  inout_table in 'inout_table.pas' {inout_tablefrm},
  serial in 'serial.pas' {serialfrm};

{$R *.res}

begin
  Application.Initialize;
  showfrm:=tshowfrm.Create(application);
  showfrm.Show;
  showfrm.Update ;
  sleep(2000);
  Application.CreateForm(Tloginfrm, loginfrm);
  Application.CreateForm(Tmainfrm, mainfrm);
  Application.CreateForm(Tdblinkfrm, dblinkfrm);
  Application.CreateForm(Toperatorfrm, operatorfrm);
  Application.CreateForm(TDataMod, DataMod);
  Application.CreateForm(Tstore_tablefrm, store_tablefrm);
  Application.CreateForm(Tinout_tablefrm, inout_tablefrm);
  Application.CreateForm(Tserialfrm, serialfrm);
  showfrm.Hide;
  showfrm.Free;
  Application.Run;
 end.