mainfrm.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit mainfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, jpeg,
  ComCtrls, Buttons, ToolWin, ImgList;
  var tuichubz:integer;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Panel1: TPanel;
    Image1: TImage;
    N4: TMenuItem;
    W1: TMenuItem;
    B1: TMenuItem;
    H1: TMenuItem;
    Y1: TMenuItem;
    Z1: TMenuItem;
    N5: TMenuItem;
    G1: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ImageList1: TImageList;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    ADOConnection1: TADOConnection;
    procedure N7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure H1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Y1Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  //ConnStr 全局变量,运用指出连接access的路径
  ConnStr :WideString ;
implementation

uses zhcycxUnit, FenleiCXUnit, MHCXUnit, DLUnit, datahfunit, databfunit,
  mhcxunitnew, backup, UCompress, FJXXUnit, passwordfrm, U_Backup,
  U_Restore, FenleiCXUnit1;



{$R *.dfm}

procedure TForm1.N7Click(Sender: TObject);
begin
   zhcycxfrm.show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin  
 connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
            'User ID=Admin;Data Source=' +
            GetCurrentDir +
            '\database\中草药库.mdb;' +
            'Mode=Share Deny None;Extended Properties="";'+
            'Persist Security Info=False;'+
            'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
            'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
            'Jet OLEDB:Database Locking Mode=1;'+
            'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:'+
            'Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
            'Jet OLEDB:Create System Database=False;'+
            'Jet OLEDB:Encrypt Database=False;'+
            'Jet OLEDB:Don' + #39 +
            't Copy Locale on Compact=False;'+
            'Jet OLEDB:Compact Without Replica Repair=False;'+
            'Jet OLEDB:SFP=False' ;
 statusbar1.Panels[1].Text:=datetostr(date);
 statusbar1.Panels[2].Text:=timetostr(time);
 tuichubz:=0;
 ADOConnection1.ConnectionString:=mainfrm.ConnStr;
 adoconnection1.Connected :=false;
end;
procedure TForm1.FormShow(Sender: TObject);
//启动应用程序时,调用API函数实现系统登录窗口逐渐显示
//参数一:指定窗口句柄; 参数二:确定窗口渐变时间;参数三:确定窗口出现的位置和渐变风格;
begin
 //form1.MainMenu1.vi.Enabled  :=false;
 DLfrm.showmodal;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[2].Text:=timetostr(time);
end;
   //以下代码用语在窗体关闭是时,系统提示是否退出,防止意外退出系统
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//if Application.MessageBox('确定要退出系统吗?','提示',MB_YesNo)=Id_No then
//  CanClose:=False;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
 FenLeiCXfrm.ShowModal;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
FenLeiCXfrm1.ShowModal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  DLfrm.showmodal;
end;

procedure TForm1.H1Click(Sender: TObject);
begin
F_Restore.showmodal ;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
f_backup.showmodal ;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
CLOSE;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
zhcycxfrm.show;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
f_backup.showmodal ;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
F_Restore.showmodal ;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
FenLeiCXfrm1.ShowModal;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
FenLeiCXfrm.ShowModal;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
frmCompress.show;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
FJXXfrm.showmodal;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
FJXXfrm.showmodal;
end;

procedure TForm1.Y1Click(Sender: TObject);
begin
frmCompress.show;
end;

procedure TForm1.G1Click(Sender: TObject);
begin
CLOSE;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
passworduint.showmodal;
end;

end.