main.~pas

企业库存管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Menus, ToolWin, MyIcon32, Buttons,
  jpeg;

type
  Tmainfrm = class(TForm)
    MainMenu1: TMainMenu;
    N_base: TMenuItem;
    N_base_product: TMenuItem;
    N_base_f: TMenuItem;
    N_base_c: TMenuItem;
    N_base_product_add: TMenuItem;
    N_base_product_edit: TMenuItem;
    N_base_product_ask: TMenuItem;
    N_base_f_add: TMenuItem;
    N_base_f_edit: TMenuItem;
    N_base_f_ask: TMenuItem;
    N_base_c_add: TMenuItem;
    N_base_c_edit: TMenuItem;
    N_base_c_ask: TMenuItem;
    N_io: TMenuItem;
    N_rkgl: TMenuItem;
    N_edit: TMenuItem;
    N_iask: TMenuItem;
    N_orecorder: TMenuItem;
    Nodeit: TMenuItem;
    N_oask: TMenuItem;
    N_storage: TMenuItem;
    N_sask: TMenuItem;
    N_short: TMenuItem;
    N_duo: TMenuItem;
    N_print: TMenuItem;
    N_modify: TMenuItem;
    N_epassword: TMenuItem;
    N_adduser: TMenuItem;
    N_help: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    About1: TMenuItem;
    Nclose: TMenuItem;
    N_ckxx: TMenuItem;
    N_tjck: TMenuItem;
    N_xgck: TMenuItem;
    N_ckquery: TMenuItem;
    Panel1: TPanel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel5: TBevel;
    Image1: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    fraMyIcon326: TfraMyIcon32;
    fraMyIcon327: TfraMyIcon32;
    fraMyIcon328: TfraMyIcon32;
    fraMyIcon329: TfraMyIcon32;
    fraMyIcon3210: TfraMyIcon32;
    TfraMyIcon321: TfraMyIcon32;
    fraMyIcon321: TfraMyIcon32;
    fraMyIcon322: TfraMyIcon32;
    fraMyIcon323: TfraMyIcon32;
    fraMyIcon324: TfraMyIcon32;
    fraMyIcon325: TfraMyIcon32;
    N_recorder: TMenuItem;
    N_outrecord: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure N_tuichuClick(Sender: TObject);
    procedure N_base_product_addClick(Sender: TObject);
    procedure N_base_product_editClick(Sender: TObject);
    procedure N_base_product_askClick(Sender: TObject);
    procedure NcloseClick(Sender: TObject);
    procedure N_editClick(Sender: TObject);
    procedure N_iaskClick(Sender: TObject);
    procedure N_xgckClick(Sender: TObject);
    procedure N_tjckClick(Sender: TObject);
    procedure N_ckqueryClick(Sender: TObject);
    procedure N_base_f_addClick(Sender: TObject);
    procedure N_base_f_editClick(Sender: TObject);
    procedure N_base_f_askClick(Sender: TObject);
    procedure N_base_c_addClick(Sender: TObject);
    procedure N_base_c_editClick(Sender: TObject);
    procedure N_base_c_askClick(Sender: TObject);
    procedure N_oaskClick(Sender: TObject);
    procedure NodeitClick(Sender: TObject);
    procedure N_saskClick(Sender: TObject);
    procedure N_shortClick(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure N_adduserClick(Sender: TObject);
    procedure N_epasswordClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure TfraMyIcon321Image1Click(Sender: TObject);
    procedure TfraMyIcon321Label1Click(Sender: TObject);
    procedure fraMyIcon321Image1Click(Sender: TObject);
    procedure fraMyIcon321Label1Click(Sender: TObject);
    procedure fraMyIcon322Image1Click(Sender: TObject);
    procedure fraMyIcon322Label1Click(Sender: TObject);
    procedure fraMyIcon323Label1Click(Sender: TObject);
    procedure fraMyIcon323Image1Click(Sender: TObject);
    procedure fraMyIcon328Label1Click(Sender: TObject);
    procedure fraMyIcon328Image1Click(Sender: TObject);
    procedure fraMyIcon329Image1Click(Sender: TObject);
    procedure fraMyIcon329Label1Click(Sender: TObject);
    procedure fraMyIcon326Image1Click(Sender: TObject);
    procedure fraMyIcon326Label1Click(Sender: TObject);
    procedure fraMyIcon327Label1Click(Sender: TObject);
    procedure fraMyIcon327Image1Click(Sender: TObject);
    procedure fraMyIcon324Label1Click(Sender: TObject);
    procedure fraMyIcon324Image1Click(Sender: TObject);
    procedure fraMyIcon325Image1Click(Sender: TObject);
    procedure fraMyIcon325Label1Click(Sender: TObject);
    procedure N_recorderClick(Sender: TObject);
    procedure N_outrecordClick(Sender: TObject);
    procedure fraMyIcon3210Label1Click(Sender: TObject);
    procedure fraMyIcon3210Image1Click(Sender: TObject);
    procedure N_duoClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfrm: Tmainfrm;

implementation
 uses login,more,tjck,xgck,cxkc,ckcx,tjghdw,xgghdw,cxghdw,tjshdw,xgshdw,cxshdw,addproduct,cxrk,rkdj,rkxg,ckdj,xgckxx,cxckxx,modifyproduct,queryproduct,kccx,short,xgmm,tjyh,about;

{$R *.dfm}

procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[0].Text:='系统提示:';
statusbar1.panels[3].text:='日期：'+datetostr(date);
statusbar1.panels[4].text:='时间：'+timetostr(time);
end;

procedure Tmainfrm.N_tuichuClick(Sender: TObject);
begin
CLOSE;
end;

procedure Tmainfrm.N_base_product_addClick(Sender: TObject);
begin
addproductfrm.ShowModal;
end;

procedure Tmainfrm.N_base_product_editClick(Sender: TObject);
begin
modifyproductfrm.show;
end;

procedure Tmainfrm.N_base_product_askClick(Sender: TObject);
begin
queryproductfrm.ShowModal;
end;

procedure Tmainfrm.NcloseClick(Sender: TObject);
begin
messagebox(mainfrm.Handle,'退出系统！','警告',mb_ok+mb_iconwarning);
application.Terminate;
end;

procedure Tmainfrm.N_editClick(Sender: TObject);
begin
rkxgfrm.Show;
end;

procedure Tmainfrm.N_iaskClick(Sender: TObject);
begin
cxrkfrm.Show;
end;

procedure Tmainfrm.N_xgckClick(Sender: TObject);
begin
 xgckfrm.show;
end;

procedure Tmainfrm.N_tjckClick(Sender: TObject);
begin
tjckfrm.Show;
end;

procedure Tmainfrm.N_ckqueryClick(Sender: TObject);
begin
cxckfrm.Show;
end;

procedure Tmainfrm.N_base_f_addClick(Sender: TObject);
begin
tjghdwfrm.Show;
end;

procedure Tmainfrm.N_base_f_editClick(Sender: TObject);
begin
xgghdwfrm.Show;
end;

procedure Tmainfrm.N_base_f_askClick(Sender: TObject);
begin
cxghdwfrm.Show;
end;

procedure Tmainfrm.N_base_c_addClick(Sender: TObject);
begin
tjshdwfrm.Show;
end;

procedure Tmainfrm.N_base_c_editClick(Sender: TObject);
begin
xgshdwfrm.Show;
end;

procedure Tmainfrm.N_base_c_askClick(Sender: TObject);
begin
cxshdwfrm.Show;
end;

procedure Tmainfrm.N_oaskClick(Sender: TObject);
begin
ckcxfrm.Show;
end;

procedure Tmainfrm.NodeitClick(Sender: TObject);
begin
xgckxxfrm.Show;
end;

procedure Tmainfrm.N_saskClick(Sender: TObject);
begin
kccxfrm.Show;
end;

procedure Tmainfrm.N_shortClick(Sender: TObject);
begin
shortfrm.Show;
end;

procedure Tmainfrm.About1Click(Sender: TObject);
begin
aboutfrm.Show;
end;

procedure Tmainfrm.N_adduserClick(Sender: TObject);
begin
tjyhfrm.Show;
end;

procedure Tmainfrm.N_epasswordClick(Sender: TObject);
begin
xgmmfrm.Show;
end;

procedure Tmainfrm.Label1Click(Sender: TObject);
begin
TabSheet1.Show;
end;

procedure Tmainfrm.Label2Click(Sender: TObject);
begin
TabSheet2.Show;
end;

procedure Tmainfrm.Label3Click(Sender: TObject);
begin
TabSheet3.Show;
end;

procedure Tmainfrm.Label4Click(Sender: TObject);
begin
TabSheet4.Show;
end;



procedure Tmainfrm.TfraMyIcon321Image1Click(Sender: TObject);
begin
  addproductfrm.Show;
end;

procedure Tmainfrm.TfraMyIcon321Label1Click(Sender: TObject);
begin
  
  addproductfrm.Show;
end;

procedure Tmainfrm.fraMyIcon321Image1Click(Sender: TObject);
begin
  tjghdwfrm.Show;
end;

procedure Tmainfrm.fraMyIcon321Label1Click(Sender: TObject);
begin
  tjghdwfrm.Show;
end;

procedure Tmainfrm.fraMyIcon322Image1Click(Sender: TObject);
begin
 
  tjshdwfrm.Show;
end;

procedure Tmainfrm.fraMyIcon322Label1Click(Sender: TObject);
begin
  tjshdwfrm.Show;
end;

procedure Tmainfrm.fraMyIcon323Label1Click(Sender: TObject);
begin

  tjckfrm.Show;
end;

procedure Tmainfrm.fraMyIcon323Image1Click(Sender: TObject);
begin

 tjckfrm.Show;
end;

procedure Tmainfrm.fraMyIcon328Label1Click(Sender: TObject);
begin

   kccxfrm.Show;
end;

procedure Tmainfrm.fraMyIcon328Image1Click(Sender: TObject);
begin

  kccxfrm.Show;
end;

procedure Tmainfrm.fraMyIcon329Image1Click(Sender: TObject);
begin

  shortfrm.Show;
end;

procedure Tmainfrm.fraMyIcon329Label1Click(Sender: TObject);
begin

  shortfrm.Show;
end;

procedure Tmainfrm.fraMyIcon326Image1Click(Sender: TObject);
begin
 
  xgmmfrm.Show;
end;

procedure Tmainfrm.fraMyIcon326Label1Click(Sender: TObject);
begin
  xgmmfrm.Show;
end;

procedure Tmainfrm.fraMyIcon327Label1Click(Sender: TObject);
begin
 
  tjyhfrm.show;
end;

procedure Tmainfrm.fraMyIcon327Image1Click(Sender: TObject);
begin
  
   tjyhfrm.Show;
end;

procedure Tmainfrm.fraMyIcon324Label1Click(Sender: TObject);
begin
 
  rkdjfrm.Show;
end;

procedure Tmainfrm.fraMyIcon324Image1Click(Sender: TObject);
begin

  rkdjfrm.Show;
end;

procedure Tmainfrm.fraMyIcon325Image1Click(Sender: TObject);
begin

  ckdjfrm.Show;
end;

procedure Tmainfrm.fraMyIcon325Label1Click(Sender: TObject);
begin
  
  ckdjfrm.Show;
end;

procedure Tmainfrm.N_recorderClick(Sender: TObject);
begin
 rkdjfrm.Show;
end;

procedure Tmainfrm.N_outrecordClick(Sender: TObject);
begin
 ckdjfrm.Show;
end;

procedure Tmainfrm.fraMyIcon3210Label1Click(Sender: TObject);
begin
morefrm.Show;
end;

procedure Tmainfrm.fraMyIcon3210Image1Click(Sender: TObject);
begin
morefrm.Show;
end;

procedure Tmainfrm.N_duoClick(Sender: TObject);
begin
morefrm.Show;
end;

end.