fjhtj.pas

操作系统：Windows ME/2000/XP 开发工具：Delphi 7.0 数据库：SQL Server 2000 硬件配置：CPU：Pentium 200MHz 以上 内存：32MBRA

unit Fjhtj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, StdCtrls, ComCtrls, ExtCtrls, Buttons, ToolWin, DB,
  ADODB, Grids, DBGrids;

type
  TF_jhtj = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_jhtj: TF_jhtj;

implementation
  uses Fzyxx,Fdm,Fzct;
{$R *.dfm}

procedure TF_jhtj.FormShow(Sender: TObject);
begin
  inherited;
  F_zct.jt:=1;
end;

procedure TF_jhtj.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TF_jhtj.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(TF_zyxx, F_zyxx);
  F_zyxx.ShowModal;
  F_zyxx.Free;
end;

procedure TF_jhtj.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=Id_no then
    Canclose:=False;
  F_zct.jt:=0;
end;

end.