main_pas.pas

不错啊

unit main_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, WinSkinData, ComCtrls, ToolWin, ImgList, RzGroupBar,
  jpeg, ExtCtrls, StdCtrls, RzLabel;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    B1: TMenuItem;
    C1: TMenuItem;
    D1: TMenuItem;
    N11: TMenuItem;
    N1: TMenuItem;
    N21: TMenuItem;
    N2: TMenuItem;
    N31: TMenuItem;
    N3: TMenuItem;
    N41: TMenuItem;
    N4: TMenuItem;
    N51: TMenuItem;
    N5: TMenuItem;
    N61: TMenuItem;
    N6: TMenuItem;
    N71: TMenuItem;
    SkinData1: TSkinData;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    m32: TImageList;
    m16: TImageList;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup4: TRzGroup;
    change_icon: TPopupMenu;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    outlock1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N8: TMenuItem;
    N81: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N22: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N23: TMenuItem;
    N18: TMenuItem;
    N32: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Image1: TImage;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    N19: TMenuItem;
    N24: TMenuItem;
    N33: TMenuItem;
    N42: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure outlock1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure RzGroup4Items2Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure RzGroup4Items1Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation
  uses main_dm_pas,set_user_pas,set_kslb_pas,set_rybl_pas,set_ks_pas,
  set_sr_pas,set_zc_pas,set_para_pas,about_pas,set_fdbl_pas,input_sr_sr_pas,
  input_sr_zc_pas,ks_sr_cx_pas,ks_zc_cx_pas,xygz_js_pas;
  var
    main_dm:Tmain_dm;
{$R *.dfm}

procedure Tmain.N7Click(Sender: TObject);
begin
  rzgroup1.ItemStyle:=isLarge;
  rzgroup2.ItemStyle:=isLarge;
  rzgroup3.ItemStyle:=isLarge;
  rzgroup4.ItemStyle:=isLarge;
end;

procedure Tmain.N9Click(Sender: TObject);
begin
  rzgroup1.ItemStyle:=isSmall;
  rzgroup2.ItemStyle:=isSmall;
  rzgroup3.ItemStyle:=isSmall;
  rzgroup4.ItemStyle:=isSmall;
end;

procedure Tmain.outlock1Click(Sender: TObject);
begin
  rzgroupbar1.Style :=gbsOutlook;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
  rzgroupbar1.Style :=gbsTaskList;
end;

procedure Tmain.N13Click(Sender: TObject);
begin
  rzgroupbar1.Style :=gbsCategoryView;
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
  main_dm :=Tmain_dm.Create(main);
  main_dm.gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
  try
    main_dm.gz.Connected :=true;
    statusbar1.Panels[2].Text :='系统数据库连接正常。';
  except
    statusbar1.Panels[2].Text :='系统数据库连接错误！！！';
  end;
end;

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  main_dm.Free;
end;

procedure Tmain.N11Click(Sender: TObject);
var
  set_user:Tset_user;
begin
  set_user:=Tset_user.Create(main);
  set_user.ShowModal;
  set_user.Free;
end;

procedure Tmain.RzGroup4Items2Click(Sender: TObject);
begin
  close;
end;

procedure Tmain.N21Click(Sender: TObject);
var
  set_kslb_pas:Tset_kslb;
begin
  set_kslb_pas:=Tset_kslb.Create(main);
  set_kslb_pas.ShowModal;
  set_kslb_pas.Free;
end;

procedure Tmain.N31Click(Sender: TObject);
var
  set_rybl:Tset_rybl;
begin
  set_rybl:=Tset_rybl.Create(main);
  set_rybl.ShowModal;
  set_rybl.Free;
end;
procedure Tmain.N41Click(Sender: TObject);
var
  set_ks:Tset_ks;
begin
  set_ks:=Tset_ks.Create(main);
  set_ks.ShowModal;
  set_ks.Free;
end;

procedure Tmain.N51Click(Sender: TObject);
var
  set_sr:Tset_sr;
begin
  set_sr:=Tset_sr.Create(main);
  set_sr.ShowModal;
  set_sr.Free;
end;

procedure Tmain.N61Click(Sender: TObject);
var
  set_zc:Tset_zc;
begin
  set_zc:=Tset_zc.Create(main);
  set_zc.ShowModal;
  set_zc.Free;
end;

procedure Tmain.N71Click(Sender: TObject);
var
  set_para:Tset_para;
begin
  set_para:=Tset_para.Create(main);
  set_para.ShowModal;
  set_para.Free;
end;

procedure Tmain.RzGroup4Items1Click(Sender: TObject);
var
  about:Tabout;
begin
  about:=Tabout.Create(main);
  about.ShowModal;
  about.Free;
end;

procedure Tmain.N81Click(Sender: TObject);
var
  set_fdbl:Tset_fdbl;
begin
  set_fdbl:=Tset_fdbl.Create(main);
  set_fdbl.ShowModal;
  set_fdbl.Free;
end;

procedure Tmain.N14Click(Sender: TObject);
var
  input_sr_sr:Tinput_sr_sr;
begin
  input_sr_sr:=Tinput_sr_sr.Create(main);
  input_sr_sr.ShowModal;
  input_sr_sr.Free;
end;

procedure Tmain.N22Click(Sender: TObject);
var
  input_sr_zc:Tinput_sr_zc;
begin
  input_sr_zc:=Tinput_sr_zc.Create(main);
  input_sr_zc.ShowModal;
  input_sr_zc.Free;
end;

procedure Tmain.N16Click(Sender: TObject);
var
  ks_sr_cx:Tks_sr_cx;
begin
  ks_sr_cx:=Tks_sr_cx.Create(main);
  ks_sr_cx.ShowModal ;
  ks_sr_cx.Free;
end;

procedure Tmain.N23Click(Sender: TObject);
var
  ks_zc_cx:Tks_zc_cx;
begin
  ks_zc_cx:=Tks_zc_cx.Create(main);
  ks_zc_cx.ShowModal ;
  ks_zc_cx.Free;
end;

procedure Tmain.N32Click(Sender: TObject);
var
  xygz_js:Txygz_js;
begin
  xygz_js:=Txygz_js.Create(main);
  xygz_js.ShowModal ;
  xygz_js.Free;
end;

end.