uexchange.pas

来自「电信电话故障台管理系统受理应用程序原形112」· PAS 代码 · 共 86 行

unit Uexchange;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, Buttons;

type
  TFexchange = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fexchange: TFexchange;

implementation

{$R *.DFM}

procedure TFexchange.SpeedButton1Click(Sender: TObject);
begin//操作员管理
  table1.close;
  table1.TableName:='data\'+'操作员'+'.dbf';
  table1.open;
end;

procedure TFexchange.SpeedButton2Click(Sender: TObject);
begin//维修员管理
  table1.close;
  table1.TableName:='data\'+'维修员'+'.dbf';
  table1.open;
end;

procedure TFexchange.SpeedButton3Click(Sender: TObject);
begin//分局配置
  table1.close;
  table1.TableName:='data\'+'分局'+'.dbf';
  table1.open;
end;

procedure TFexchange.SpeedButton4Click(Sender: TObject);
begin//局向配置
  table1.close;
  table1.TableName:='data\'+'局向'+'.dbf';
  table1.open;
end;

procedure TFexchange.FormShow(Sender: TObject);
begin
  SpeedButton1Click(self);
end;

procedure TFexchange.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.close;
end;

procedure TFexchange.Button1Click(Sender: TObject);
begin
  close;
end;

end.