uinfo.pas

来自「商场活动抽奖系统,无需控件,可以正常使用.」· PAS 代码 · 共 107 行

unit UInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, ADODB, StdCtrls, Mask, DBCtrls, Buttons;

type
  TfrmInfo = class(TForm)
    Panel2: TPanel;
    ADOQuery: TADOQuery;
    DataSource: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    btnModify: TSpeedButton;
    btnSave: TSpeedButton;
    btnCancel: TSpeedButton;
    Label3: TLabel;
    btnExit: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnExitClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInfo: TfrmInfo;

implementation

uses UMain,  Upublic;
{$R *.dfm}

procedure TfrmInfo.FormShow(Sender: TObject);
begin
SetEdit(DBEdit1,False);
SetEdit(DBEdit2,False);
btnModify.Enabled:=True;
btnSave.Enabled:=False;
btnCancel.Enabled:=False;
ADOQuery.Connection:=frmMain.ADOC;
ADOQuery.SQL.Text:='select * from awInfo';
ADOQuery.Open;
end;

procedure TfrmInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOQuery.Close;
end;

procedure TfrmInfo.btnExitClick(Sender: TObject);
begin
close;
end;

procedure TfrmInfo.btnModifyClick(Sender: TObject);
begin
ADOQuery.Edit;
btnModify.Enabled:=False;
btnSave.Enabled:=True;
btnCancel.Enabled:=True;
SetEdit(DBEdit1,True);
SetEdit(DBEdit2,True);
end;

procedure TfrmInfo.btnSaveClick(Sender: TObject);
var
 Query:TADOQuery;
begin
 ADOQuery.Post;
 btnModify.Enabled:=True;
 btnSave.Enabled:=False;
 btnCancel.Enabled:=False;
 SetEdit(DBEdit1,False);
 SetEdit(DBEdit2,False);
 Query:=TADOQuery.Create(nil);
 Query.Connection:=frmMain.ADOC;
 Query.SQL.Text:='select * from awInfo';
 Query.Open;
 frmMain.lab_company_up.Caption:=Query.fieldByName('aw_company').AsString;
 frmMain.lab_company_down.Caption:=frmMain.lab_company_up.Caption;
 frmMain.lab_Title.Caption:=Query.fieldByName('aw_title').AsString;
 Query.Close;
 Query.Free;
end;

procedure TfrmInfo.btnCancelClick(Sender: TObject);
begin
ADOQuery.Cancel;
btnModify.Enabled:=True;
btnSave.Enabled:=False;
btnCancel.Enabled:=False;
SetEdit(DBEdit1,False);
SetEdit(DBEdit2,False);
end;

end.