unit_gczbparentform.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

unit Unit_GCZBParentform;

interface

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

type
  Tfrm_GCZBParentform = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    Panel2: TPanel;
    Panel1: TPanel;
    Panel3: TPanel;
    Label7: TLabel;
    Edit1: TEdit;
    bb_Add: TBitBtn;
    bb_Update: TBitBtn;
    bb_Delete: TBitBtn;
    bb_Save: TBitBtn;
    bb_Cancel: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bb_UpdateClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure bb_AddClick(Sender: TObject);
    procedure bb_DeleteClick(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    procedure bb_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_GCZBParentform: Tfrm_GCZBParentform;

implementation

{$R *.dfm}

procedure Tfrm_GCZBParentform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure Tfrm_GCZBParentform.FormDestroy(Sender: TObject);
begin
  frm_GCZBParentform:=nil;
end;

procedure Tfrm_GCZBParentform.FormCreate(Sender: TObject);
begin
 {}
end;


procedure Tfrm_GCZBParentform.bb_UpdateClick(Sender: TObject);
begin
  bb_Add.Enabled:=false;
  bb_Delete.Enabled:=false;
  bb_Save.Enabled:=true;
end;

procedure Tfrm_GCZBParentform.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  {}
end;

procedure Tfrm_GCZBParentform.bb_AddClick(Sender: TObject);
begin
  bb_Update.Enabled:=false;
  bb_Delete.Enabled:=false;
  bb_Save.Enabled:=true;
end;

procedure Tfrm_GCZBParentform.bb_DeleteClick(Sender: TObject);
begin
  {}
end;

procedure Tfrm_GCZBParentform.bb_SaveClick(Sender: TObject);
begin
  bb_Add.Enabled:=true;
  bb_Update.Enabled:=true;
  bb_Delete.Enabled:=true;

end;

procedure Tfrm_GCZBParentform.bb_CancelClick(Sender: TObject);
begin
  bb_Add.Enabled:=true;
  bb_Update.Enabled:=true;
  bb_Delete.Enabled:=true;
  bb_Save.Enabled:=FALSE;
end;

end.