baseform.pas

中小企业管理系统------ ERP系统原代码

unit BaseForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBData, KsSkinForms, ADODB,
  KsSkinMessages, se_controls;

type
  TfrmBaseForm = class(TForm)
    SeSkinForm1: TSeSkinForm;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    procedure ReadSaveForm;
    procedure WriteSaveForm;
  public
    { Public declarations }
  protected
    sPrintFile: string;
    bOperateLog: Boolean;
    lGridVisibleBand: Integer; //显示双表头
  end;

var
  frmBaseForm: TfrmBaseForm;
implementation

uses SysPublic;

{$R *.DFM}

procedure TfrmBaseForm.WriteSaveForm;
var
  sSql, sState: string;
begin
  if SeSkinForm1.WindowState = kwsNormal then
    sState := 'wWsNormal'
  else
    if SeSkinForm1.WindowState = kwsMinimized then
      sState := 'wsMinimized'
    else
      if SeSkinForm1.WindowState = kwsMaximized then
        sState := 'wsMaximized'
      else
        sState := '';
  sSql := ' SELECT * FROM SaveForm WHERE Caption=''' + Caption + '''';
  if GetDataSetEmptyEx(frmData.ADOConnetLogin, sSql) then
    sSql := 'INSERT INTO SaveForm (Caption,[Top],[Left],[Width],[Height],State,GridVBand)'
      + 'VALUES(''' + Caption + ''',' + IntToStr(Top) + ',' + IntToStr(Left) + ',' +
      IntToStr(Width) + ',' + IntToStr(Height) + ',''' + sState + ''',' +
      IntToStr(lGridVisibleBand) + ')'
  else
  begin
    if SeSkinForm1.WindowState = kwsNormal then
      sSql := ' UPDATE SaveForm Set [Top]=' + IntToStr(Top) + ',[Left]=' +
        IntToStr(Left) +
        ',[Width]=' + IntToStr(Width) + ',[Height]=' + IntToStr(Height) +
        ',GridVBand=' +
        IntToStr(lGridVisibleBand) + ',State=''' + sState + ''' Where Caption='''
        + Caption + ''''
    else
      sSql := ' UPDATE SaveForm Set GridVBand=' + IntToStr(lGridVisibleBand) +
        ',State=''' + sState + ''' Where Caption=''' + Caption + '''';
  end;
  ExecSqlEx(frmData.ADOConnetLogin, sSql);
end;

procedure TfrmBaseForm.ReadSaveForm;
var
  sState, sSql: string;
  ADOSetTmp: TADODataSet;
begin
  ADOSetTmp := TADODataSet.Create(nil);
  sSql := ' SELECT * FROM SaveForm WHERE Caption=''' + Caption + '''';
  OpenDataSetEx(frmData.ADOConnetLogin, ADOSetTmp, sSql);
  if not ADOSetTmp.IsEmpty then
  begin
    sState := ADOSetTmp.FieldByName('State').AsString;
    Top := ADOSetTmp.FieldByName('Top').AsInteger;
    Left := ADOSetTmp.FieldByName('Left').AsInteger;
    lGridVisibleBand := ADOSetTmp.FieldByName('GridVBand').AsInteger;
    if Trim(sState) = 'wsMinimized' then
      SeSkinForm1.WindowState := kwsMinimized
    else
      if Trim(sState) = 'wsMaximized' then
        SeSkinForm1.WindowState := kwsMaximized
      else
      begin
        SeSkinForm1.WindowState := kwsNormal;
        Width := ADOSetTmp.FieldByName('Width').AsInteger;
        Height := ADOSetTmp.FieldByName('Height').AsInteger;
      end;
  end;
  ADOSetTmp.Close;
  ADOSetTmp.Free;
end;

procedure TfrmBaseForm.FormCreate(Sender: TObject);
begin
  bOperateLog := True;
  SetSkinEngine(Self);
end;

procedure TfrmBaseForm.FormShow(Sender: TObject);
begin
  sPrintFile := Caption;
SeSkinForm1.Caption:=Caption;
  lGridVisibleBand := 1;
  ReadSaveForm;
  SetGB23ToBIG5(Self);
end;

procedure TfrmBaseForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  WriteSaveForm;
  if bOperateLog and (lLoginAccountID > 0) then SaveOperateLog(Caption);
end;

end.



//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档