lrklb.~pas

不完备信息的数据发现

unit lrklb;

interface

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

type
  Tlrklbf = class(TForm)
    Panel_top: TPanel;
    SB_insert: TSpeedButton;
    SB_delete: TSpeedButton;
    SB_edit: TSpeedButton;
    SB_save: TSpeedButton;
    SB_exit: TSpeedButton;
    Bevel1: TBevel;
    SB_cancel: TSpeedButton;
    Panel_xg: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    DBEdit_dqmc: TDBEdit;
    DBEdit_dqbh: TDBEdit;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Q_rklb: TADOQuery;
    DS_rklb: TDataSource;
    procedure SB_exitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB_insertClick(Sender: TObject);
    procedure SB_deleteClick(Sender: TObject);
    procedure SB_editClick(Sender: TObject);
    procedure SB_saveClick(Sender: TObject);
    procedure SB_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lrklbf: Tlrklbf;

implementation

{$R *.dfm}

uses main_page,DM;

procedure Tlrklbf.SB_exitClick(Sender: TObject);
begin
 close;
end;

procedure Tlrklbf.FormShow(Sender: TObject);
begin
   Q_rklb.Close;
   Q_rklb.SQL.Text:='select bh,rklb FROM '+DatabaseName+'KC_RKlb order by bh';
   Q_rklb.Open;
   sb_save.Enabled:=false;
   sb_cancel.Enabled:=false;
   panel_xg.Enabled:=false;
end;

procedure Tlrklbf.SB_insertClick(Sender: TObject);
begin
   sb_save.Enabled:=true;
   sb_cancel.Enabled:=true;
   sb_delete.Enabled:=false;
   sb_edit.Enabled:=false;
   sb_insert.Enabled:=false;
   panel_xg.Enabled:=true;
   DBEdit_dqbh.SetFocus;
   DBGrid1.ReadOnly:=true;
   Q_rklb.Append;
end;

procedure Tlrklbf.SB_deleteClick(Sender: TObject);
begin
   Q_rklb.Delete;
   Q_rklb.ExecSQL;
end;

procedure Tlrklbf.SB_editClick(Sender: TObject);
begin
   Q_rklb.Edit;
end;

procedure Tlrklbf.SB_saveClick(Sender: TObject);
begin

   Q_rklb.ExecSQL;
end;

procedure Tlrklbf.SB_cancelClick(Sender: TObject);
begin
   Q_rklb.CancelUpdates;
   
end;

end.