untmaintain.~pas

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

unit UntMaintain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, StdCtrls, ExtCtrls, DBCtrls, Buttons, ToolWin,
  ComCtrls;

type
  TFrmMaintain = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    DBN1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMaintain: TFrmMaintain;

implementation

uses UntMain, UntDM;

{$R *.dfm}

procedure TFrmMaintain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if frmMaintain<>nil then
  begin
    frmMaintain.Release;
    frmMaintain := nil;
  end;
end;

procedure TFrmMaintain.FormCreate(Sender: TObject);
begin
  if Length(MaintainTableName)=0 then exit;
  self.Caption := MaintainTableName;
  DM1.QryMaintain.Close;
  DM1.QryMaintain.SQL.Text := ' Select * from ' + MaintainTableName;
  DM1.QryMaintain.Open;

  DBGridEh1.Columns[0].Title.TitleButton := True;
end;

procedure TFrmMaintain.SpeedButton11Click(Sender: TObject);
begin
  dbn1.BtnClick(nbfirst);
end;

procedure TFrmMaintain.SpeedButton9Click(Sender: TObject);
begin
  dbn1.BtnClick(nbprior);
end;

procedure TFrmMaintain.SpeedButton8Click(Sender: TObject);
begin
  dbn1.BtnClick(nbnext);
end;

procedure TFrmMaintain.SpeedButton7Click(Sender: TObject);
begin
  dbn1.BtnClick(nblast);
end;

procedure TFrmMaintain.SpeedButton6Click(Sender: TObject);
begin
  dbn1.BtnClick(nbinsert);
end;

procedure TFrmMaintain.SpeedButton5Click(Sender: TObject);
begin
  dbn1.BtnClick(nbdelete);
end;

procedure TFrmMaintain.SpeedButton4Click(Sender: TObject);
begin
  dbn1.BtnClick(nbedit);
end;

procedure TFrmMaintain.SpeedButton3Click(Sender: TObject);
begin
  dbn1.BtnClick(nbedit);
  dbn1.BtnClick(nbpost);
end;

procedure TFrmMaintain.SpeedButton2Click(Sender: TObject);
begin
  dbn1.BtnClick(nbedit);
  dbn1.BtnClick(nbcancel);
end;

procedure TFrmMaintain.SpeedButton1Click(Sender: TObject);
begin
  DM1.QryMaintain.Requery();
end;

procedure TFrmMaintain.SpeedButton12Click(Sender: TObject);
begin
  close;
end;

end.