mainform.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit Mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseMainForm, Menus, StdActns, DBActns, ActnList, ImgList,
  ExtCtrls, ComCtrls, StdCtrls, Buttons, wwSpeedButton, wwDBNavigator,
  wwclearpanel, ToolWin, ExtDlgs, NMUDP;
type
  TfMainform = class(TfBaseMainform)
    N2: TMenuItem;
    N3: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N4: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N47: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N71: TMenuItem;
    N63: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N65: TMenuItem;
    N68: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N55: TMenuItem;
    N64: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N79Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMainform: TfMainform;

implementation

uses ClassType, Department, Workers, MachineSet, CardRead, ArangeClass,
  DailyCard, CardAnalyst, HolidaySet, Leave, CardCleanUp, RuleSet,
  DailyCardAnalyst, WorkersClassBrowse, WorkersClassList, CardList,
  LaterLeaveEarlyDailyReport, CardByHandle, OverTimeDailyReport,
  MonthCards, CardByHandleEach, Card_InOut, LeaveType, DailyCardCheck,
  ErrorsMaintenance, MonthKQ, UnitWage, EmpBonus, Dimission, MonthSum,
  ExtOver, CardInOut_CleanUp, Worker_InOutEdit;

{$R *.dfm}

procedure TfMainform.N4Click(Sender: TObject);
begin
   self.CreateChildForm(tfClassType,fClassType,true,Sender);
end;

procedure TfMainform.N3Click(Sender: TObject);
begin
  self.CreateChildForm(tfDepartMent,fDepartMent,true,Sender);
end;

procedure TfMainform.N35Click(Sender: TObject);
begin
   self.CreateChildForm(tfWorkers,fWorkers,true,Sender);
end;

procedure TfMainform.N41Click(Sender: TObject);
begin
   CreateChildForm(tfMachineSet,fMachineSet,False,Sender);
end;

procedure TfMainform.N40Click(Sender: TObject);
begin
     CreateChildForm(tfCardRead,fCardRead,False,Sender);
end;

procedure TfMainform.N50Click(Sender: TObject);
begin
  CreateChildForm(tfArangeClass,fArangeClass,False,Sender);
end;

procedure TfMainform.N44Click(Sender: TObject);
begin
   CreateChildForm(tfDailyCard,fDailyCard,True,Sender);
end;



procedure TfMainform.N53Click(Sender: TObject);
begin
  CreateChildForm(tfHolidaySet,fHolidaySet,true,Sender);
end;

procedure TfMainform.N52Click(Sender: TObject);
begin
 CreateChildForm(tfLeave,fLeave,true,Sender);
end;

procedure TfMainform.N56Click(Sender: TObject);
begin
  CreateChildForm(tfCardCleanUp,fCardCleanUp,true,Sender);
end;

procedure TfMainform.N57Click(Sender: TObject);
begin
  CreateChildForm(tfRuleSet ,fRuleSet,False,Sender);
end;

procedure TfMainform.N66Click(Sender: TObject);
begin
  CreateChildForm(tfDailyCardAnalyst ,fDailyCardAnalyst,False,Sender);
end;

procedure TfMainform.N71Click(Sender: TObject);
begin
  CreateChildForm(tfWorkersClassBrowse ,fWorkersClassBrowse,true,Sender);
end;

procedure TfMainform.N72Click(Sender: TObject);
begin
   CreateChildForm(TfWorkersClassList ,fWorkersClassList,true,Sender);
end;

procedure TfMainform.N63Click(Sender: TObject);
begin
   CreateChildForm(tfCardList ,fCardList,true,Sender);
end;

procedure TfMainform.N65Click(Sender: TObject);
begin
  CreateChildForm(TfCard_InOut ,fCard_InOut,true,Sender);
end;

procedure TfMainform.N67Click(Sender: TObject);
begin
  CreateChildForm(TfLaterLeaveEarlyDailyReport ,fLaterLeaveEarlyDailyReport,false,Sender);
end;

procedure TfMainform.N68Click(Sender: TObject);
begin
  CreateChildForm(TfCardByHandle  ,fCardByHandle ,true,Sender);
end;

procedure TfMainform.N75Click(Sender: TObject);
begin
  CreateChildForm(TfOverTimeDailyReport  ,fOverTimeDailyReport ,false,Sender);
end;

procedure TfMainform.N76Click(Sender: TObject);
begin
  CreateChildForm(TfMonthCards  ,fMonthCards ,false,Sender);
end;

procedure TfMainform.N55Click(Sender: TObject);
begin
 CreateChildForm(TfCardByHandleEach ,fCardByHandleEach ,true,Sender);
end;

procedure TfMainform.N64Click(Sender: TObject);
begin
  CreateChildForm(TfLeaveType ,fLeaveType ,true,Sender);
end;

procedure TfMainform.N77Click(Sender: TObject);
begin
  CreateChildForm(tfDailyCardCheck ,fDailyCardCheck ,false,Sender);
end;

procedure TfMainform.N45Click(Sender: TObject);
begin
  CreateChildForm(TfMonthCards ,fMonthCards ,false,Sender);
end;

procedure TfMainform.N79Click(Sender: TObject);
begin
  CreateChildForm(TfErrorsMaintenance,fErrorsMaintenance ,false,Sender);
end;

procedure TfMainform.N82Click(Sender: TObject);
begin
  CreateChildForm(TfMonthKQ,fMonthKQ ,false,Sender);
end;

procedure TfMainform.N54Click(Sender: TObject);
begin
  CreateChildForm(tfUnitWage,fUnitWage ,true,Sender);
end;

procedure TfMainform.N47Click(Sender: TObject);
begin
  CreateChildForm(tfEmp_Bonus,fEmp_Bonus ,true,Sender);
end;

procedure TfMainform.N58Click(Sender: TObject);
begin
  CreateChildForm(tfDimission,fDimission ,false,Sender);
end;

procedure TfMainform.N83Click(Sender: TObject);
begin
  inherited;
 // fMonthSum:=tfMOnthSum.Create(self);
  //fMonthSum.ShowModal;

    CreateChildForm(tfMonthSum,fMonthSum,False,Sender);
end;

procedure TfMainform.N84Click(Sender: TObject);
begin
     CreateChildForm(tfExtOver,fExtOver ,true,Sender);
end;

procedure TfMainform.N85Click(Sender: TObject);
begin
   fCardInOut_CleanUp:=tfCardInOut_CleanUp.Create(self);
   fCardInOut_CleanUp.Show ;
   fCardInOut_CleanUp.doDataImport ;
   fCardInOut_CleanUp.Free;
end;

procedure TfMainform.N86Click(Sender: TObject);
begin
  CreateChildForm(TfWorker_InOutEdit,fWorker_InOutEdit ,true,Sender);
end;

end.