main.pas

进销存以及BOM管理,SQl Server数据库程序

    N183: TMenuItem;
    N184: TMenuItem;
    N185: TMenuItem;
    N186: TMenuItem;
    N187: TMenuItem;
    N188: TMenuItem;
    N189: TMenuItem;
    N190: TMenuItem;
    N191: TMenuItem;
    N192: TMenuItem;
    N193: TMenuItem;
    N194: TMenuItem;
    N195: TMenuItem;
    N196: TMenuItem;
    N197: TMenuItem;
    N198: TMenuItem;
    N199: TMenuItem;
    N200: TMenuItem;
    N201: TMenuItem;
    N202: TMenuItem;
    N203: TMenuItem;
    N204: TMenuItem;
    N205: TMenuItem;
    N206: TMenuItem;
    N207: TMenuItem;
    N208: TMenuItem;
    N209: TMenuItem;
    N212: TMenuItem;
    N213: TMenuItem;
    N214: TMenuItem;
    N215: TMenuItem;
    Action160: TAction;
    N217: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N56: TMenuItem;
    N73: TMenuItem;
    N218: TMenuItem;
    N219: TMenuItem;
    N220: TMenuItem;
    N221: TMenuItem;
    Action161: TAction;
    N222: TMenuItem;
    Action162: TAction;
    N223: TMenuItem;
    Action154: TAction;
    N210: TMenuItem;
    Action155: TAction;
    N211: TMenuItem;
    Action163: TAction;
    N216: TMenuItem;
    VIP7: TMenuItem;
    Action164: TAction;
    N224: TMenuItem;
    Action165: TAction;
    N225: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure PagecChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure h1001Execute(Sender: TObject);
    procedure h1002Execute(Sender: TObject);
    procedure h1003Execute(Sender: TObject);
    procedure h06Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure m503Execute(Sender: TObject);
    procedure spbtnstandartClick(Sender: TObject);
    procedure Action148Execute(Sender: TObject);
    procedure Action161Execute(Sender: TObject);
    procedure Action156Execute(Sender: TObject);
    procedure Action151Execute(Sender: TObject);
    procedure Action149Execute(Sender: TObject);
    procedure Action152Execute(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action154Execute(Sender: TObject);
    procedure Action98Execute(Sender: TObject);
    procedure Action155Execute(Sender: TObject);
    procedure Action163Execute(Sender: TObject);
    procedure Action164Execute(Sender: TObject);
    procedure Action165Execute(Sender: TObject);
  private
    procedure forminit;
    procedure SHOWBOOT(var Msg:Tmessage);message WM_USER_SHOWBOOT;
    { Private declarations }
  public
    procedure setformname(name: string);
    procedure delformname(name:string);
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses Login, Boot, Abort, uchangepwd, Data, Global, uchangeuser, ucomponey,
  uchangedb, uitem, utablefield, uitemtype, uunit, ubom, uproducebill,
  uMaterielDecompose;

{$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.FormCreate(Sender: TObject);
begin
  inherited;
  self.Left:=0;
  self.Top:=0;
  self.Position:=poDesigned;

  if not assigned(frmlogin) then
    frmlogin:=Tfrmlogin.Create(Application);

  if frmlogin.ShowModal = mrOk then
    begin
      forminit;
      postmessage(handle,WM_USER_SHOWBOOT,0,0);
    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;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
  inherited;
  caption:=systemName;

end;

procedure Tfrmmain.forminit;
begin
  spbtn1.Caption:='';
  spbtn2.Caption:='';
  spbtn3.Caption:='';
  spbtn4.Caption:='';
  spbtn5.Caption:='';
  spbtn6.Caption:='';
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;

procedure Tfrmmain.h1002Execute(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<=0 then
            LockCount:=0;
          (Child.Components[i] as TDBGridEH).frozenCols:=LockCount;
        end;
    end;
end;

procedure Tfrmmain.h1003Execute(Sender: TObject);
begin
  inherited;
  if frmmain.MDIChildCount > 0 then
      if (frmmain.ActiveMDIChild.ClassName<>'Tfrmmain') then
         frmmain.ActiveMDIChild.Close
         else
       else
   if application.MessageBox('请确认要退出该系统 ? ','东创卓越2005',MB_YESNO+MB_iconquestion)=idYES then
      application.Terminate;
end;

procedure Tfrmmain.h06Execute(Sender: TObject);
var
  ofile:String;
  hwndcalculation:hwnd;
begin
  inherited;
  hwndcalculation:=FindWindow(nil,'CALC');
  if (hwndcalculation=0) then
    begin
      ofile:='Calc.exe';
      ShellExecute(self.Handle,'open',pchar(ofile),
                nil,pchar(Extractfilepath(ofile)),sw_showNormal);
    end;
end;

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

procedure Tfrmmain.m503Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmchangepwd) then
    frmchangepwd:=Tfrmchangepwd.Create(application);
    frmchangepwd.ShowModal;  
end;

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

procedure Tfrmmain.Action148Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmchangepwd) then
    frmchangepwd:=Tfrmchangepwd.Create(Application);
    frmchangepwd.ShowModal;
end;

procedure Tfrmmain.Action161Execute(Sender: TObject);
begin
  inherited;
   postmessage(handle,WM_USER_SHOWBOOT,0,0);
end;

procedure Tfrmmain.SHOWBOOT(var Msg: Tmessage);
begin
  application.ProcessMessages;
  if not assigned(frmboot) then
    Frmboot:=TfrmBoot.Create(application);
    frmboot.Show;
end;

procedure Tfrmmain.Action156Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmabout) then
    frmabout:=Tfrmabout.Create(application);
    frmabout.ShowModal;
end;

procedure Tfrmmain.Action151Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmchangeuser) then
    frmchangeuser:=Tfrmchangeuser.Create(Application);
    frmchangeuser.showModal;
end;

procedure Tfrmmain.Action149Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmcomponey) then
    Frmcomponey:=Tfrmcomponey.Create(application);
    frmComponey.ShowModal;
end;

procedure Tfrmmain.Action152Execute(Sender: TObject);
begin
  inherited;
  if not assigned(frmchangedb) then
    frmchangedb:=Tfrmchangedb.Create(Application);
    frmchangedb.showModal;
end;

procedure Tfrmmain.Action11Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmitem,frmitem,self);
end;

procedure Tfrmmain.Action154Execute(Sender: TObject);
begin
  inherited;
  if Trim(UpperCase(gs_UserCode))='ADMIN' then
     begin
      if not assigned(frmtablefield) then
        frmtablefield:=Tfrmtablefield.Create(application);
        frmtablefield.ShowModal;  
     end;
end;

procedure Tfrmmain.Action98Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmitemtype,frmitemtype,self);
end;

procedure Tfrmmain.Action155Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmunit,frmunit,self);
end;

procedure Tfrmmain.Action163Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmbasebom,frmbasebom,self);
end;

procedure Tfrmmain.Action164Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmproducebill,frmproducebill,self);
end;

procedure Tfrmmain.Action165Execute(Sender: TObject);
begin
  inherited;
  openform(TfrmMaterielDecompose,frmMaterielDecompose,self);
end;

end.