main.~pas

在打沙场用的最简单

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ActnList, Menus, ComCtrls, Buttons, StdCtrls, ExtCtrls,
  ImgList, StdActns, ShellAPI, Grids, DBGridEh;

type
  Tfrmmain = class(TfrmBase)
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    N1: TMenuItem;
    O1: TMenuItem;
    M1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    N122: TMenuItem;
    paneltoolbar: TPanel;
    paneltool: TPanel;
    Label1: TLabel;
    spbtnstandart: TSpeedButton;
    spbtn1: TSpeedButton;
    spbtn2: TSpeedButton;
    spbtn3: TSpeedButton;
    spbtn4: TSpeedButton;
    spbtn5: TSpeedButton;
    SystemDate: TDateTimePicker;
    Pagec: TPageControl;
    spbtn6: TSpeedButton;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    h1001: TAction;
    h1002: TAction;
    nonimagelist: TImageList;
    PopupMenu1: TPopupMenu;
    a01: TAction;
    a02: TAction;
    a03: TAction;
    a04: TAction;
    a05: TAction;
    b01: TAction;
    b02: TAction;
    b03: TAction;
    b04: TAction;
    c01: TAction;
    c02: TAction;
    c03: TAction;
    c04: TAction;
    d01: TAction;
    d03: TAction;
    d04: TAction;
    d05: TAction;
    d06: TAction;
    e01: TAction;
    e02: TAction;
    f01: TAction;
    f02: TAction;
    f03: TAction;
    f04: TAction;
    f05: TAction;
    f06: TAction;
    f07: TAction;
    f08: TAction;
    g01: TAction;
    g02: TAction;
    g03: TAction;
    g04: TAction;
    N5: TMenuItem;
    N9: TMenuItem;
    N19: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    d07: TAction;
    N37: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    h01: TAction;
    h02: TAction;
    h03: TAction;
    h04: TAction;
    h05: TAction;
    h06: TAction;
    h07: TAction;
    h1003: TAction;
    POS5: TMenuItem;
    N55: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N66: TMenuItem;
    h10031: TMenuItem;
    h08: TAction;
    N68: TMenuItem;
    N69: TMenuItem;
    b05: TAction;
    d08: TAction;
    N56: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    d09: TAction;
    d10: TAction;
    d11: TAction;
    N79: TMenuItem;
    N65: TMenuItem;
    h09: TAction;
    i01: TAction;
    i02: TAction;
    i03: TAction;
    i04: TAction;
    E1: TMenuItem;
    N67: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    h10: TAction;
    N89: TMenuItem;
    N8: TMenuItem;
    c05: TAction;
    i05: TAction;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    i06: TAction;
    N13: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure PagecChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure spbtnstandartClick(Sender: TObject);
    procedure h1001Execute(Sender: TObject);
    procedure h1002Execute(Sender: TObject);
    procedure h1003Execute(Sender: TObject);
    procedure h06Execute(Sender: TObject);
    procedure h08Execute(Sender: TObject);
    procedure h03Execute(Sender: TObject);
    procedure h09Execute(Sender: TObject);
    procedure d07Execute(Sender: TObject);
    procedure d09Execute(Sender: TObject);
    procedure d01Execute(Sender: TObject);
    procedure d11Execute(Sender: TObject);
    procedure d10Execute(Sender: TObject);
    procedure c01Execute(Sender: TObject);
    procedure c06Execute(Sender: TObject);
    procedure d08Execute(Sender: TObject);
    procedure d03Execute(Sender: TObject);
    procedure d06Execute(Sender: TObject);
    procedure d02Execute(Sender: TObject);
    procedure d04Execute(Sender: TObject);
    procedure d05Execute(Sender: TObject);
    procedure a01Execute(Sender: TObject);
    procedure h10Execute(Sender: TObject);
    procedure g01Execute(Sender: TObject);
    procedure h01Execute(Sender: TObject);
    procedure SystemDateChange(Sender: TObject);
    procedure h04Execute(Sender: TObject);
    procedure h05Execute(Sender: TObject);
    procedure h07Execute(Sender: TObject);
    procedure a02Execute(Sender: TObject);
    procedure a03Execute(Sender: TObject);
    procedure a04Execute(Sender: TObject);
    procedure a05Execute(Sender: TObject);
    procedure f07Execute(Sender: TObject);
    procedure f08Execute(Sender: TObject);
    procedure N90Click(Sender: TObject);
    procedure c02Execute(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure i01Execute(Sender: TObject);
    procedure i02Execute(Sender: TObject);
    procedure i03Execute(Sender: TObject);
    procedure c04Execute(Sender: TObject);
    procedure c05Execute(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure f01Execute(Sender: TObject);
    procedure f02Execute(Sender: TObject);
    procedure f03Execute(Sender: TObject);
    procedure f04Execute(Sender: TObject);
    procedure f05Execute(Sender: TObject);
    procedure f06Execute(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure i06Execute(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    procedure forminit;
    procedure showboot;
    { Private declarations }
  public
    procedure setformname(name: string);
    procedure delformname(name:string);
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses Login, Global, boot, uunit, udept, ucurrency, itemtype, uemployeetype,
  ubilltype, uform, uemployee,  item, uworkmode,
  userverproj,  upurchase, upermiss, utest, Abort,ufz,uhm,usp,uzd,ufzrep,uhmrep,usprep,
  usyslog,  uchangepwd, Regist, ustore, upurreturn, upurpayment, usale,ufzpayment,rmpurreturn01,
  upurchasedetail, upurchasetotal, usaledetail, upaymentdetail , uliaochen,
  cgreport, ustorerep, usalerep,  fzpayment01, ufzsprep,usc,ufuli;

{$R *.dfm}

procedure Tfrmmain.delformname(name: string);
var
  i:integer;
begin
  for i:=0 to pagec.PageCount-1 do
    begin
      if pagec.Pages[i].Caption=Trim(name) then
        begin
          pagec.Pages[i].Free;
          break;
        end;
    end;
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  inherited;
    if date>=strtodate('2006-12-3') then
    begin
     application.messagebox('请联系系统管理员','系统提示',mb_ok);
     close;
    end;
  if not assigned(frmlogin) then
    frmlogin:=Tfrmlogin.Create(Application);

  if frmlogin.ShowModal = mrOk then
    begin
      forminit;

    end
    else
    begin
      close;
      application.Terminate;
    end;
end;

procedure Tfrmmain.setformname(name: string);
var
  Ttab:Ttabsheet;
begin
  Ttab:=Ttabsheet.Create(nil);
  Ttab.PageControl:=pagec;
  ttab.Caption:=name;
  pagec.ActivePage:=ttab;
end;

procedure Tfrmmain.PagecChange(Sender: TObject);
var
  i:integer;
  sformname:string;
begin
  sformname:=pagec.ActivePage.Caption;
  for i:=0 to Frmmain.MDIChildCount-1 do
    begin
      if frmmain.MDIChildren[i].Caption=sformname then
        frmmain.MDIChildren[i].Show;
    end;
  if sformname='主控制台' then
    frmmain.Show;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
  inherited;
  setformname('主控制台');
  caption:=gs_apptitle;
  showBoot;
end;

procedure Tfrmmain.spbtnstandartClick(Sender: TObject);
var
  point:Tpoint;
begin
  inherited;
  point:=Getscreenpoint(spbtnstandart);
  popupmenu1.Popup(point.X,point.Y);
end;

procedure Tfrmmain.forminit;
begin
  main_ini();
  SystemDate.Date:= frmlogin.DateTimePicker1.Date;
  WorkDate:=frmlogin.DateTimePicker1.Date;
  spbtn1.Caption:='';
  spbtn2.Caption:='';
  spbtn3.Caption:='';
  spbtn4.Caption:='';
  spbtn5.Caption:='';
  spbtn6.Caption:='';
end;

procedure Tfrmmain.showboot;
begin
  if not assigned(frmboot) then
    frmboot:=Tfrmboot.Create(application);
end;

procedure Tfrmmain.h1001Execute(Sender: TObject);
var
  Child:Tform;
  i:integer;
begin
  inherited;
  if frmMain.MDIChildCount > 0 then
    Child:=frmMain.ActiveMDIChild
    Else
    Exit;

  for i:=0 to Child.ComponentCount - 1 do
    begin
      if (Child.Components[i] is TDBGridEH) then
        begin
          LockCount:=LockCount+1;
          if LockCount=(Child.Components[i] as TDBGridEH).columns.Count-1 then
            LockCount:=0;
          (Child.Components[i] as TDBGridEH).frozenCols:=LockCount;
        end;
    end;
end;