templateform.~pas

来自「用Delphi编写的生产管理系统源码」· ~PAS 代码 · 共 50 行

unit TemplateForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, TFlatTitlebarUnit, ExtCtrls, TFlatPanelUnit, ADODB,
  TFlatSplitterUnit, Frame_DataEdit, StdCtrls;

type
  TFrmTemplate = class(TForm)
    MainDataSource: TDataSource;
    FlatTitlebar1: TFlatTitlebar;
    FlatPanel1: TFlatPanel;
    MainADODataSet: TADODataSet;
    FlatSplitter1: TFlatSplitter;
    FlatPanel2: TFlatPanel;
    FrameDataEdit1: TFrameDataEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MainADODataSetBeforePost(DataSet: TDataSet);
    procedure MainADODataSetAfterPost(DataSet: TDataSet);
    procedure MainADODataSetPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmTemplate: TFrmTemplate;

implementation

uses MainForm, UserInfo, AdoDataMoudle;

{$R *.dfm}

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

procedure TFrmTemplate.FormActivate(Sender: TObject);
begin
  WindowState := wsMaximized; //程