easygas_gui.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit EASYGAS_GUI;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, Buttons, ActnList, DB, ADODB, EASY_GASMAIN,
  ExtCtrls, DBCtrls, Menus, StdCtrls;

type
  TSYSGUI = class(TForm)
    PAGES: TPageControl;
    TS1: TTabSheet;
    TS2: TTabSheet;
    TS3: TTabSheet;
    SpeedButton1: TSpeedButton;
    TabSheet1: TTabSheet;
    BUTTLE: TADODataSet;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    BARS: TImageList;
    SpeedButton2: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton9: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    SpeedButton7: TSpeedButton;
    SpeedButton11: TSpeedButton;
    N13: TMenuItem;
    SpeedButton13: TSpeedButton;
    N14: TMenuItem;
    SpeedButton15: TSpeedButton;
    Bevel5: TBevel;
    SpeedButton18: TSpeedButton;
    GroupBox1: TGroupBox;
    SpeedButton17: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton12: TSpeedButton;
    GroupBox2: TGroupBox;
    SpeedButton10: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton16: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N8: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BUTTLENewRecord(DataSet: TDataSet);
    procedure PAGESDrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SYSGUI: TSYSGUI;

implementation

{$R *.dfm}

procedure TSYSGUI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   MAINFORM.Close;
   Action:=cafree;
end;

procedure TSYSGUI.BUTTLENewRecord(DataSet: TDataSet);
begin
  With Dataset do
  Begin
    Edit;
    Fieldbyname('建档员').AsString:=USER.Name;
    Fieldbyname('建档日期').AsDateTime:=Now;
  end;
end;

procedure TSYSGUI.PAGESDrawTab(Control: TCustomTabControl;  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var BMP:TBitmap;
begin
  With Pages.Canvas do
  Begin
    BMP:=TBitmap.Create;
    try
    BARS.GetBitmap(TabIndex,BMP);
    StretchDraw(Rect,BMP);
    finally
    BMP.Free;
    end;
  end;
end;

procedure TSYSGUI.FormShow(Sender: TObject);
begin
  WindowState:=wsNormal;
end;

end.