piecerate.dpr

一个鞋塑企业的计件工资系统.开发目录为：D:PieceRate

program PieceRate;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  Buttons,
  Main in 'Main.pas' {frmMain},
  Flash in 'Flash.pas' {frmFlash},
  Login in 'Login.pas' {frmLogin},
  DataCenter in 'DataCenter.pas' {DmData: TDataModule},
  ProdRate in 'ProdRate.pas' {frmProdRate},
  SetDataSource in 'SetDataSource.pas' {frmSetDataSource},
  ChoicePerson in 'ChoicePerson.pas' {frmChoicePerson},
  ProdRateSearch in 'ProdRateSearch.pas' {frmProdRateSearch},
  WorkType in 'WorkType.pas' {frmWorkType},
  dept in 'dept.pas' {frmDept},
  Personel in 'Personel.pas' {frmPersonel},
  Rates in 'Rates.pas' {frmRates},
  frmAffiche in 'frmAffiche.pas' {AfficheForm},
  frmRatePMTotal in 'frmRatePMTotal.pas' {RatePMTotalForm},
  frmPicecPMTotal in 'frmPicecPMTotal.pas' {PicecPMTotalForm},
  frmCheckPMTotal in 'frmCheckPMTotal.pas' {CheckPMTotalForm},
  UserGl in 'UserGl.pas' {frmUserGL},
  frmGzcalc in 'frmGzcalc.pas' {GzcalcForm},
  frmNoExist in 'frmNoExist.pas' {NoexistForm},
  frmSearchRate in 'frmSearchRate.pas' {SearchRateForm},
  frmMsg in 'frmMsg.pas' {MsgForm},
  frmPicecCalc in 'frmPicecCalc.pas' {PicecCalcForm},
  frmCheckCalc in 'frmCheckCalc.pas' {CheckCalcForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '计件工资管理系统';
  Application.CreateForm(TDmData, DmData);
  frmFlash:=TfrmFlash.Create(application);
  frmFlash.Show;
  frmFlash.Update;

  frmLogin:=TfrmLogin.Create(Application);

  frmFlash.Hide;
  frmFlash.Free;

// 下面两句代码的作用：当Server.Ini数据源配置错误，在设置数据源时会使FrmSetDataSource作为软件主窗品，当在下面加入以下两句后就可使FrmDataSource不作主窗体
  if Application.FindComponent('frmSetDataSource')<>nil then
    frmSetDataSource.Free;
//主窗体调整结束

  frmLogin.ShowModal;
  frmLogin.Update;
  if frmLogin.ModalResult=mrOK then
    Application.CreateForm(TfrmMain, frmMain);
  Application.Run;

end.