main.~pas

仓库管理信息系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, ShellAPI;

type
  Tmainfrm = class(TForm)
    MainMenu: TMainMenu;
    mn_jcsj: TMenuItem;
    mn_cp_cpzl: TMenuItem;
    mn_cp_cplx: TMenuItem;
    N1: TMenuItem;
    mn_xs__xsyzl: TMenuItem;
    mn_xs_khzl: TMenuItem;
    N5: TMenuItem;
    mn_sjcsh: TMenuItem;
    mn_cpnckc: TMenuItem;
    mn_cp_jclx: TMenuItem;
    mn_cp_jcysr: TMenuItem;
    mn_djwh: TMenuItem;
    mn_cpjcdwh: TMenuItem;
    mn_cpxsdwh: TMenuItem;
    N4: TMenuItem;
    mn_cp: TMenuItem;
    N7: TMenuItem;
    mn_cl: TMenuItem;
    mn_xs: TMenuItem;
    N10: TMenuItem;
    mn_cg: TMenuItem;
    mn_cg_gyszl: TMenuItem;
    mn_cg_cglx: TMenuItem;
    mn_cg_ysrzl: TMenuItem;
    N15: TMenuItem;
    mn_cl_lybm: TMenuItem;
    mn_cl_cclx: TMenuItem;
    mn_cl_cllx: TMenuItem;
    mn_cl_clzl: TMenuItem;
    mn_xs_xslx: TMenuItem;
    mn_clcgdwh: TMenuItem;
    mn_cllldwh: TMenuItem;
    mn_clnckc: TMenuItem;
    N6: TMenuItem;
    mn_gyshkncye: TMenuItem;
    mn_khhkncye: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N8: TMenuItem;
    mn_cgfkdwh: TMenuItem;
    mn_xsskdwh: TMenuItem;
    mn_lckc: TMenuItem;
    mn_clmyjc: TMenuItem;
    mn_bmlyqk: TMenuItem;
    N14: TMenuItem;
    mn_cpkc: TMenuItem;
    mn_cpmyjc: TMenuItem;
    mn_gysghhz: TMenuItem;
    mn_xsqkkhhz: TMenuItem;
    N20: TMenuItem;
    mn_gyshk: TMenuItem;
    mn_khhk: TMenuItem;
    N23: TMenuItem;
    mn_hk: TMenuItem;
    mn_hk_pjlx: TMenuItem;
    mn_hk_jsfs: TMenuItem;
    mn_hk_jsr: TMenuItem;
    mn_hk_cqyh: TMenuItem;
    MN_YHQX: TMenuItem;
    MN_MMXG: TMenuItem;
    mn_nmjz: TMenuItem;
    mn_nj_clkc: TMenuItem;
    mn_nj_cpkc: TMenuItem;
    mn_nj_gyshk: TMenuItem;
    mn_nj_khhk: TMenuItem;
    mn_gysmyhk: TMenuItem;
    mn_khmyhk: TMenuItem;
    N18: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure mn_cp_cpzlClick(Sender: TObject);
    procedure mn_cp_cplxClick(Sender: TObject);
    procedure mn_xs_khzlClick(Sender: TObject);
    procedure mn_xs__xsyzlClick(Sender: TObject);
    procedure mn_cpnckcClick(Sender: TObject);
    procedure mn_cp_jclxClick(Sender: TObject);
    procedure mn_cp_jcysrClick(Sender: TObject);
    procedure mn_cpjcdwhClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mn_cpxsdwhClick(Sender: TObject);
    procedure mn_xs_xslxClick(Sender: TObject);
    procedure mn_cg_gyszlClick(Sender: TObject);
    procedure mn_cg_cglxClick(Sender: TObject);
    procedure mn_cg_ysrzlClick(Sender: TObject);
    procedure mn_cl_lybmClick(Sender: TObject);
    procedure mn_cl_cclxClick(Sender: TObject);
    procedure mn_cl_cllxClick(Sender: TObject);
    procedure mn_cl_clzlClick(Sender: TObject);
    procedure mn_clcgdwhClick(Sender: TObject);
    procedure mn_cllldwhClick(Sender: TObject);
    procedure mn_clnckcClick(Sender: TObject);
    procedure mn_lckcClick(Sender: TObject);
    procedure mn_cpkcClick(Sender: TObject);
    procedure mn_cpmyjcClick(Sender: TObject);
    procedure mn_clmyjcClick(Sender: TObject);
    procedure mn_gysghhzClick(Sender: TObject);
    procedure mn_bmlyqkClick(Sender: TObject);
    procedure mn_xsqkkhhzClick(Sender: TObject);
    procedure mn_nj_clkcClick(Sender: TObject);
    procedure mn_nj_cpkcClick(Sender: TObject);
    procedure mn_hk_pjlxClick(Sender: TObject);
    procedure mn_hk_jsfsClick(Sender: TObject);
    procedure mn_hk_jsrClick(Sender: TObject);
    procedure mn_hk_cqyhClick(Sender: TObject);
    procedure mn_cgfkdwhClick(Sender: TObject);
    procedure mn_xsskdwhClick(Sender: TObject);
    procedure mn_gyshkncyeClick(Sender: TObject);
    procedure mn_khhkncyeClick(Sender: TObject);
    procedure mn_gyshkClick(Sender: TObject);
    procedure mn_khhkClick(Sender: TObject);
    procedure mn_gysmyhkClick(Sender: TObject);
    procedure mn_khmyhkClick(Sender: TObject);
    procedure mn_nj_gyshkClick(Sender: TObject);
    procedure mn_nj_khhkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MN_YHQXClick(Sender: TObject);
    procedure MN_MMXGClick(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    mn:TMenuItem;
    { Public declarations }
  end;

var
  mainfrm: Tmainfrm;

implementation

uses cpzl, cplx, khzl, xsyzl, cpkccsh, cpjclx, cpjcysr, cpjcdwh, cpccdwh,
  cpcclx, jclxwh, cclxwh, cllxwh, clbmwh, gyswh, ysrwh, lybmwh, jcdwh,
  ccdwh, clqckc, cpqckc, clkccx, cpqccx, cpyjccx, clyjccx, gysghhz, bmlyhz,
  xskhhz, clkcjz, cpkcjz, pjlxwh, jsfswh, hkjsrwh, cqyhwh, data, fkdwh,
  skdwh, khnchk, gysnchk, gyshkcx, khhkcx, gyshkyjc, khhkyjc, gyshkjz,
  khhkjz, yhqx, mmxg, ABOUT;

{$R *.dfm}

procedure Tmainfrm.mn_cp_cpzlClick(Sender: TObject);
begin
if not Assigned(frm_cpzl) then
  frm_cpzl := tfrm_cpzl.Create(Self);
  frm_cpzl.ShowModal;
end;

procedure Tmainfrm.mn_cp_cplxClick(Sender: TObject);
begin
if not Assigned(frm_cplx) then
  frm_cplx := tfrm_cplx.Create(Self);
  frm_cplx.ShowModal;
end;

procedure Tmainfrm.mn_xs_khzlClick(Sender: TObject);
begin
if not Assigned(frm_khzl) then
  frm_khzl := tfrm_khzl.Create(Self);
  frm_khzl.ShowModal;
end;

procedure Tmainfrm.mn_xs__xsyzlClick(Sender: TObject);
begin
dm.zlads_xsyzl.Close;
dm.zlads_xsyzl.Open;
if not Assigned(frm_xsyzl) then
  frm_xsyzl := tfrm_xsyzl.Create(Self);
  frm_xsyzl.ShowModal;
end;

procedure Tmainfrm.mn_cpnckcClick(Sender: TObject);
begin
if not Assigned(frm_cpqckc) then
  frm_cpqckc := tfrm_cpqckc.Create(Self);
  frm_cpqckc.ShowModal;
end;

procedure Tmainfrm.mn_cp_jclxClick(Sender: TObject);
begin
dm.zlads_cpjclx.Close;
dm.zlads_cpjclx.Open;
if not Assigned(frm_cpjclx) then
  frm_cpjclx := tfrm_cpjclx.Create(Self);
  frm_cpjclx.ShowModal;
end;

procedure Tmainfrm.mn_cp_jcysrClick(Sender: TObject);
begin
dm.zlads_cpjcysr.Close;
dm.zlads_cpjcysr.Open;
if not Assigned(frm_cpjcysr) then
  frm_cpjcysr := tfrm_cpjcysr.Create(Self);
  frm_cpjcysr.ShowModal;
end;

procedure Tmainfrm.mn_cpjcdwhClick(Sender: TObject);
begin
if not assigned(frm_cpjcdwh) then
  frm_cpjcdwh := tfrm_cpjcdwh.create(self);
  frm_cpjcdwh.showmodal;
end;

procedure Tmainfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('确实要退出系统吗 ?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
    begin
    Application.Terminate;
    end
  else
    abort;
end;

procedure Tmainfrm.mn_cpxsdwhClick(Sender: TObject);
begin
if not assigned(frm_cpxsdwh) then
  frm_cpxsdwh := tfrm_cpxsdwh.create(self);
  frm_cpxsdwh.showmodal;
end;

procedure Tmainfrm.mn_xs_xslxClick(Sender: TObject);
begin
dm.zlads_cpcclx.Close;
dm.zlads_cpcclx.Open;
if not assigned(frm_cclxwh) then
  frm_cclxwh := tfrm_cclxwh.create(self);
  frm_cclxwh.showmodal;
end;

procedure Tmainfrm.mn_cg_gyszlClick(Sender: TObject);
begin
if not Assigned(gysWHFRM) then
  gysWHFRM := tgysWHFRM.Create(Self);
  gysWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_cg_cglxClick(Sender: TObject);
begin
dm.whjclxdmads.Close;
dm.whjclxdmads.Open;
if not Assigned(jclxWHFRM) then
  jclxWHFRM := tjclxWHFRM.Create(Self);
  jclxWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_cg_ysrzlClick(Sender: TObject);
begin
dm.whysrads.Close;
dm.whysrads.Open;
if not Assigned(ysrwhfrm) then
  ysrwhfrm := tysrwhfrm.Create(Self);
  ysrwhfrm.ShowModal;
end;

procedure Tmainfrm.mn_cl_lybmClick(Sender: TObject);
begin
dm.whbmdmads.Close;
dm.whbmdmads.Open;
if not Assigned(bmlyWHFRM) then
  bmlyWHFRM := tbmlyWHFRM.Create(Self);
  bmlyWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_cl_cclxClick(Sender: TObject);
begin
dm.whcclxdmads.Close;
dm.whcclxdmads.Open;
if not Assigned(cclxWHFRM) then
  cclxWHFRM := tcclxWHFRM.Create(Self);
  cclxWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_cl_cllxClick(Sender: TObject);
begin
if not Assigned(cllxWHFRM) then
  cllxWHFRM := tcllxWHFRM.Create(Self);
  cllxWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_cl_clzlClick(Sender: TObject);
begin
if not Assigned(clbmWHFRM) then
  clbmWHFRM := tclbmWHFRM.Create(Self);
  clbmWHFRM.ShowModal;
end;

procedure Tmainfrm.mn_clcgdwhClick(Sender: TObject);
begin
if not Assigned(jcdwhfrm) then
  jcdwhfrm := tjcdwhfrm.Create(Self);
  jcdwhfrm.ShowModal;
end;

procedure Tmainfrm.mn_cllldwhClick(Sender: TObject);
begin
if not Assigned(ccdwhfrm) then
  ccdwhfrm := tccdwhfrm.Create(Self);
  ccdwhfrm.ShowModal;
end;

procedure Tmainfrm.mn_clnckcClick(Sender: TObject);
begin
if not Assigned(clnckcfrm) then
  clnckcfrm := tclnckcfrm.Create(Self);
  clnckcfrm.ShowModal;
end;

procedure Tmainfrm.mn_lckcClick(Sender: TObject);
begin
if not assigned(clkcfrm) then
  clkcfrm := tclkcfrm.Create(Self);
  clkcfrm.ShowModal;
end;

procedure Tmainfrm.mn_cpkcClick(Sender: TObject);
begin
if not assigned(frm_cpkccx) then
  frm_cpkccx := tfrm_cpkccx.Create(Self);
  frm_cpkccx.ShowModal;
end;

procedure Tmainfrm.mn_cpmyjcClick(Sender: TObject);
begin
if not assigned(frm_cpyjccx) then
  frm_cpyjccx := tfrm_cpyjccx.Create(Self);
  frm_cpyjccx.ShowModal;
end;

procedure Tmainfrm.mn_clmyjcClick(Sender: TObject);
begin
if not assigned(clyjcfrm) then
  clyjcfrm := tclyjcfrm.Create(Self);
  clyjcfrm.ShowModal;
end;

procedure Tmainfrm.mn_gysghhzClick(Sender: TObject);
begin
if not assigned(gysghfrm) then
  gysghfrm := tgysghfrm.Create(Self);
  gysghfrm.ShowModal;
end;

procedure Tmainfrm.mn_bmlyqkClick(Sender: TObject);
begin
if not assigned(bmlyhzfrm) then
  bmlyhzfrm := tbmlyhzfrm.Create(Self);
  bmlyhzfrm.ShowModal;
end;

procedure Tmainfrm.mn_xsqkkhhzClick(Sender: TObject);
begin
if not assigned(xskhhzfrm) then
  xskhhzfrm := txskhhzfrm.Create(Self);
  xskhhzfrm.ShowModal;
end;

procedure Tmainfrm.mn_nj_clkcClick(Sender: TObject);
begin
if not assigned(clkcjzfrm) then
  clkcjzfrm := tclkcjzfrm.Create(Self);
  clkcjzfrm.ShowModal;
end;

procedure Tmainfrm.mn_nj_cpkcClick(Sender: TObject);
begin
if not assigned(cpkcjzfrm) then
  cpkcjzfrm := tcpkcjzfrm.Create(Self);
  cpkcjzfrm.ShowModal;
end;

procedure Tmainfrm.mn_hk_pjlxClick(Sender: TObject);
begin
dm.ads_pjlxwh.Close;
dm.ads_pjlxwh.Open;
if not assigned(frm_pjlxwh) then
  frm_pjlxwh := tfrm_pjlxwh.Create(Self);
  frm_pjlxwh.ShowModal;
end;

procedure Tmainfrm.mn_hk_jsfsClick(Sender: TObject);
begin
dm.ads_jsfswh.Close;
dm.ads_jsfswh.Open;
if not assigned(frm_jsfswh) then
  frm_jsfswh := tfrm_jsfswh.Create(Self);
  frm_jsfswh.ShowModal;
end;

procedure Tmainfrm.mn_hk_jsrClick(Sender: TObject);
begin
dm.ads_hkjsrwh.Close;
dm.ads_hkjsrwh.Open;
if not assigned(frm_hkjsrwh) then
  frm_hkjsrwh := tfrm_hkjsrwh.Create(Self);
  frm_hkjsrwh.ShowModal;
end;

procedure Tmainfrm.mn_hk_cqyhClick(Sender: TObject);
begin
if not assigned(frm_cqyhwh) then
  frm_cqyhwh := tfrm_cqyhwh.Create(Self);
  frm_cqyhwh.ShowModal;
end;

procedure Tmainfrm.mn_cgfkdwhClick(Sender: TObject);
begin
if not assigned(frm_fkdwh) then
  frm_fkdwh := tfrm_fkdwh.Create(Self);
  frm_fkdwh.ShowModal;
end;

procedure Tmainfrm.mn_xsskdwhClick(Sender: TObject);
begin
if not assigned(frm_skdwh) then
  frm_skdwh := tfrm_skdwh.Create(Self);
  frm_skdwh.ShowModal;
end;

procedure Tmainfrm.mn_gyshkncyeClick(Sender: TObject);
begin
if not assigned(gysnchkfrm) then
  gysnchkfrm := tgysnchkfrm.Create(Self);
  gysnchkfrm.ShowModal;
end;

procedure Tmainfrm.mn_khhkncyeClick(Sender: TObject);
begin
if not assigned(khnchkfrm) then
  khnchkfrm := tkhnchkfrm.Create(Self);
  khnchkfrm.ShowModal;
end;

procedure Tmainfrm.mn_gyshkClick(Sender: TObject);
begin
if not assigned(gysnhkcxfrm) then
  gysnhkcxfrm := tgysnhkcxfrm.Create(Self);
  gysnhkcxfrm.ShowModal;
end;

procedure Tmainfrm.mn_khhkClick(Sender: TObject);
begin
if not assigned(khnhkcxfrm) then
  khnhkcxfrm := tkhnhkcxfrm.Create(Self);
  khnhkcxfrm.ShowModal;
end;

procedure Tmainfrm.mn_gysmyhkClick(Sender: TObject);
begin
if not assigned(gyshkyjcfrm) then
  gyshkyjcfrm := tgyshkyjcfrm.Create(Self);
  gyshkyjcfrm.ShowModal;
end;

procedure Tmainfrm.mn_khmyhkClick(Sender: TObject);
begin
if not assigned(khhkyjcfrm) then
  khhkyjcfrm := tkhhkyjcfrm.Create(Self);
  khhkyjcfrm.ShowModal;
end;

procedure Tmainfrm.mn_nj_gyshkClick(Sender: TObject);
begin
if not assigned(gyshknmjzfrm) then
  gyshknmjzfrm := tgyshknmjzfrm.Create(Self);
  gyshknmjzfrm.ShowModal;
end;

procedure Tmainfrm.mn_nj_khhkClick(Sender: TObject);
begin
if not assigned(khhknmjzfrm) then
  khhknmjzfrm := tkhhknmjzfrm.Create(Self);
  khhknmjzfrm.ShowModal;
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
begin
dm.cdqxads.Close;
dm.cdqxads.CommandText:='select  *   from 菜单权限 '+
  ' where 用户id='+''''+
  dm.yhdlads.fieldbyname('用户id').Value+''''+
  ' order by 菜单分类id, 菜单id';
dm.cdqxads.Open;
while not dm.cdqxads.eof do begin
  TMenuItem(FindComponent(trim(dm.cdqxads.fieldbyname('菜单id').Value))).visible:=
    dm.cdqxads.fieldbyname('权限').Value;
  dm.cdqxads.Next;
end;
end;

procedure Tmainfrm.MN_YHQXClick(Sender: TObject);
begin
if not assigned(yhqxfrm) then
  yhqxfrm := tyhqxfrm.Create(Self);
  yhqxfrm.ShowModal;
end;

procedure Tmainfrm.MN_MMXGClick(Sender: TObject);
begin
if not assigned(mmxgfrm) then
  mmxgfrm := tmmxgfrm.Create(Self);
  mmxgfrm.ShowModal;
end;

procedure Tmainfrm.N13Click(Sender: TObject);
begin
if not assigned(aboutbox) then
  aboutbox := taboutbox.Create(Self);
  aboutbox.ShowModal;
end;

procedure Tmainfrm.N12Click(Sender: TObject);
var
p:pchar;
begin
  if FileExists(ExtractFilePath(Application.Exename)+'\help\appHELP.chm') then
   begin
    p:=pchar(ExtractFilePath(Application.Exename)+'\help\apphelp.chm');
    ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
   end
end;

end.