u_editbase.pas

来自「添加BDE别名:paikedata 设置path:[存放位置]paikeda」· PAS 代码 · 共 107 行

unit U_editbase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGridEh, ExtCtrls, DB,
  DBTables, PrnDbgeh;

type
  Teditbase = class(TForm)
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    e_bm: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    base3: TTable;
    editgz: TTable;
    ds_base3: TDataSource;
    ds_editgz: TDataSource;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    printbase: TPrintDBGridEh;
    BitBtn2: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure e_bmCloseUp(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editbase: Teditbase;

implementation

{$R *.dfm}

procedure Teditbase.BitBtn3Click(Sender: TObject);
begin
close;
DBGRIDEH1.ReadOnly :=FALSE;

end;

procedure Teditbase.BitBtn1Click(Sender: TObject);
begin
dbgrideh1.ReadOnly :=false;

end;

procedure Teditbase.FormShow(Sender: TObject);
begin
EDITGZ.Open;
dbgrideh1.ReadOnly :=true;
BASE3.Open;
 
end;

procedure Teditbase.e_bmCloseUp(Sender: TObject);
begin
EDITGZ.Close;
editgz.Filtered :=false;
editgz.Filter :='bm='''+e_bm.Text +'''';
editgz.Filtered :=true;
editgz.open;
end;

procedure Teditbase.BitBtn4Click(Sender: TObject);
begin
editgz.Append ;

end;

procedure Teditbase.BitBtn5Click(Sender: TObject);
begin
editgz.Close;
editgz.Filtered :=false;
editgz.Open;

end;

procedure Teditbase.BitBtn6Click(Sender: TObject);
begin
editgz.Delete ;

end;

procedure Teditbase.BitBtn2Click(Sender: TObject);
begin
printbase.Preview ;

end;

end.