fwlxml.pas

服务信息管理系统

unit fwlxml;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables, ImgList, StdCtrls, Buttons, ExtCtrls,
  ToolWin, LbSpeedButton, TDSuperEdit, Mask, ToolEdit, CurrEdit;

type
  Tfrmfwlxml = class(TForm)
    Splitter1: TSplitter;
    CoolBar1: TCoolBar;
    oToolBar: TToolBar;
    bmtjaddButton: TToolButton;
    bmxjaddButton: TToolButton;
    DeleteBmButton: TToolButton;
    PrintButton: TToolButton;
    PrintviewButton: TToolButton;
    ToolButton7: TToolButton;
    ExitButton: TToolButton;
    Panel1: TPanel;
    BmmlView: TTreeView;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ImageList: TImageList;
    bmmlQuery: TQuery;
    StatusBar1: TStatusBar;
    ButtonOk: TLbSpeedButton;
    ButtonCancel: TLbSpeedButton;
    Label4: TLabel;
    Edit3: TCurrencyEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfwlxml: Tfrmfwlxml;

implementation

{$R *.dfm}

procedure Tfrmfwlxml.ButtonCancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrmfwlxml.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmfwlxml := nil;
end;

procedure Tfrmfwlxml.FormResize(Sender: TObject);
begin
  Panel1.Width := Self.Width - Splitter1.Width - Panel2.Width - 9;
end;

procedure Tfrmfwlxml.ExitButtonClick(Sender: TObject);
begin
  close;
end;

procedure Tfrmfwlxml.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      key := #0;
      SelectNext(ActiveControl, True, True);
    end;
end;

procedure Tfrmfwlxml.FormShow(Sender: TObject);
begin
  Self.Height := 368;
  Self.width := 542;
end;

end.