fxsphb.pas

进销存开发系统

unit Fxsphb;

interface

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

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

var
  F_xsphb: TF_xsphb;

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

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

procedure TF_xsphb.FormShow(Sender: TObject);
begin
  inherited;
  F_zct.jt:=3;
end;

procedure TF_xsphb.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

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

end.