sfsb_u.pas

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

unit sfsb_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, StrUtils,Menus, DB, ADODB, ComCtrls, ImgList, ToolWin,
  jpeg, ExtCtrls, StdActns, ActnList;

type
  Tfrm_sfsb = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    comport_menu: TMenuItem;
    windows_menu: TMenuItem;
    grxx_menu: TMenuItem;
    bfsjk_menu: TMenuItem;
    hfsjk_menu: TMenuItem;
    N8: TMenuItem;
    tc_menu: TMenuItem;
    kcsh_menu: TMenuItem;
    cx_ka: TMenuItem;
    xm_menu: TMenuItem;
    sfzh_menu: TMenuItem;
    qxgl_menu: TMenuItem;
    xgmm_menu: TMenuItem;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    toolbt_grxx: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    Image1: TImage;
    cascade_menu: TMenuItem;
    arrange_menu: TMenuItem;
    horizontal_menu: TMenuItem;
    vertical_menu: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowArrange1: TWindowArrange;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowClose1: TWindowClose;
    minimizeall_menu: TMenuItem;
    closeall_menu: TMenuItem;
    N9: TMenuItem;
    N4: TMenuItem;
    about_menu: TMenuItem;
    HelpContents1: THelpContents;
    lock_menu: TMenuItem;
    ToolButton1: TToolButton;
    Timer1: TTimer;
    mdb_ysxf_menu: TMenuItem;
    procedure kcsh_menuClick(Sender: TObject);
    procedure cx_kaClick(Sender: TObject);
    procedure grxx_menuClick(Sender: TObject);
    procedure xm_menuClick(Sender: TObject);
    procedure sfzh_menuClick(Sender: TObject);
    procedure qxgl_menuClick(Sender: TObject);
    procedure xgmm_menuClick(Sender: TObject);
    procedure tc_menuClick(Sender: TObject);
    procedure bfsjk_menuClick(Sender: TObject);
    procedure hfsjk_menuClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure comport_menuClick(Sender: TObject);
    procedure ADOTable1AfterOpen(DataSet: TDataSet);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ToolButton8Click(Sender: TObject);
    procedure about_menuClick(Sender: TObject);
    procedure lock_menuClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mdb_ysxf_menuClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    dbfilename:string;
    Const
      connstr='Provider=Microsoft.Jet.OLEDB.4.0;'+
              'Data Source=%s;Persist Security Info=False;'+
              'Jet OLEDB:Database Password=%s';
  end;

var
  frm_sfsb: Tfrm_sfsb;
  

implementation

uses zk_u, cx_u, grxx_u, qxgl_u, xgmm_u, bfsjk_u, hfsjk_u,
  comport_u,about_u, LOGIN_U, public_u, lock, CompressRePairMDB_u;

{$R *.dfm}

procedure Tfrm_sfsb.grxx_menuClick(Sender: TObject);
begin
  //application.createform(tfrm_grxx,frm_grxx);
  frm_grxx:=tfrm_grxx.Create(application);
end;

procedure Tfrm_sfsb.hfsjk_menuClick(Sender: TObject);
begin
  application.CreateForm(tfrm_hfsjk,frm_hfsjk);
end;

procedure Tfrm_sfsb.kcsh_menuClick(Sender: TObject);
begin
  //application.createform(tfrm_zk,frm_zk);
  frm_zk:=tfrm_zk.Create(application);
end;

procedure Tfrm_sfsb.lock_menuClick(Sender: TObject);
begin
  lock_frm:=tlock_frm.Create(self);
  lock_frm.ShowModal;
end;

procedure Tfrm_sfsb.mdb_ysxf_menuClick(Sender: TObject);
begin
  adoconnection1.Connected:=false;
  if CompressRepairMDB(dbfilename,'tjz929') Then
  begin
    messagedlg('数据库压缩与修复成功！！',mtInFormation,[mbOK],0);
    adoconnection1.Connected:=true;
  end;
end;

procedure Tfrm_sfsb.qxgl_menuClick(Sender: TObject);
begin
  frm_qxgl:=tfrm_qxgl.create(application);
end;

procedure Tfrm_sfsb.sfzh_menuClick(Sender: TObject);
begin
  //application.createform(tfrm_cx,frm_cx);
  frm_cx:=tfrm_cx.Create(application);
  frm_cx.tj_CmB.ItemIndex:=2;
end;

procedure Tfrm_sfsb.xgmm_menuClick(Sender: TObject);
begin
  frm_xgmm:=tfrm_xgmm.Create(application);
end;

procedure Tfrm_sfsb.xm_menuClick(Sender: TObject);
begin
  //application.createform(tfrm_cx,frm_cx);
  frm_cx:=tfrm_cx.Create(application);
  frm_cx.tj_CmB.ItemIndex:=1;
end;

procedure Tfrm_sfsb.bfsjk_menuClick(Sender: TObject);
begin
  application.createform(tfrm_bfsjk,frm_bfsjk);
  //frm_bfsjk:=tfrm_bfsjk.create(application);
end;

procedure Tfrm_sfsb.comport_menuClick(Sender: TObject);
begin
  application.CreateForm(tfrm_com,frm_com);
end;

procedure Tfrm_sfsb.cx_kaClick(Sender: TObject);
begin
  //application.createform(tfrm_cx,frm_cx);
  frm_cx:=tfrm_cx.Create(application);
end;

procedure Tfrm_sfsb.about_menuClick(Sender: TObject);
begin
  frm_about:=tfrm_about.Create(self);
  frm_about.ShowModal;
end;

procedure Tfrm_sfsb.tc_menuClick(Sender: TObject);
begin
  self.Close;
end;

procedure Tfrm_sfsb.Timer1Timer(Sender: TObject);
begin
  lock_frm:=tlock_frm.Create(self);
  lock_frm.Show;
end;

procedure Tfrm_sfsb.ToolButton1Click(Sender: TObject);
begin
  lock_frm:=tlock_frm.Create(self);
  lock_frm.ShowModal;
end;

procedure Tfrm_sfsb.ToolButton4Click(Sender: TObject);
begin
  frm_cx:=tfrm_cx.Create(application);
end;

procedure Tfrm_sfsb.ToolButton8Click(Sender: TObject);
begin
  self.Close;
end;

procedure Tfrm_sfsb.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagebox(0,'请确认是否退出本系统','提示信息',mb_iconquestion+mb_YesNo)=id_yes then
  begin
     self.Free;
     application.Terminate;
  end
  else
     CanClose:=false;
end;

procedure Tfrm_sfsb.FormCreate(Sender: TObject);
begin
  dbfilename:=extractfilepath(application.ExeName)+'data\sfsb.mdb';
  adoconnection1.ConnectionString:=format(connstr,[dbfilename,'tjz929']);
  if not DataSource1.DataSet.Active then
    DataSource1.DataSet.Open;
  statusbar1.Panels[1].Text:='当前用户：'+userxm_v+'          日期：'+datetostr(now);
end;

procedure Tfrm_sfsb.ADOTable1AfterOpen(DataSet: TDataSet);
begin
  //给IC卡端口的全局变量com_num赋值
  com_num:=strtoint(rightstr(adotable1.FieldByName('comport').AsString,1))-1;
  //给IC卡型代码的全局变量cardtype_v赋值
  cardtype_num_v:=cardtype_num(adotable1.fieldbyname('cardtype').AsString);
end;


end.