kglxm.pas

来自「用delphi开发的电力调度操作票系统并带有access数据库」· PAS 代码 · 共 72 行

unit KGLXM;

interface

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

type
  TFrm_KGLXM = class(TForm)
    DataSource: TDataSource;
    DBGrid: TDBGrid;
    ADOTable: TADOTable;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_KGLXM: TFrm_KGLXM;

implementation

uses Common;

{$R *.dfm}

procedure TFrm_KGLXM.FormCreate(Sender: TObject);
var
  i:integer;
begin
  ADOTable.Connection:=Frm_Com.ADOConnection;
  ADOTable.TableName:='KGLX';
  ADOTable.Active:=true;
  ADOTable.First;
  for i:=0 to DBGrid.Columns.Count-1 do
    DBGrid.Columns[i].Width:=65;


end;

procedure TFrm_KGLXM.RadioButton1Click(Sender: TObject);
var
  i:integer;
begin
  ADOTable.Active:=False;
  ADOTable.TableName:='KGLX';
  ADOTable.Active:=True;
  for i:=0 to DBGrid.Columns.Count-1 do
    DBGrid.Columns[i].Width:=65;
end;

procedure TFrm_KGLXM.RadioButton2Click(Sender: TObject);
var
  i:integer;
begin
  ADOTable.Active:=False;
  ADOTable.TableName:='XLKGLX';
  ADOTable.Active:=True;
  for i:=0 to DBGrid.Columns.Count-1 do
    DBGrid.Columns[i].Width:=65;
end;

end.