setadtype.pas

来自「软件类别: 数据库 软件大小: 1.24M 运行环境: DELPHI 」· PAS 代码 · 共 80 行

unit SetADType;
{设置通信录分类}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, StdCtrls,TinyDB, ComCtrls;

type
  TFrmSetADType = class(TForm)
    GroupBox1: TGroupBox;
    CmdExit: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CmdExitClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSetADType: TFrmSetADType;
  TTB:TTinyTable;

implementation

uses Main;

{$R *.dfm}

procedure TFrmSetADType.FormCreate(Sender: TObject);
begin
  TTB:=TTinyTable.Create(self);
  with TTB do
  begin
    DatabaseName:=FrmMain.DBName;
    TableName:='ADTypes';
    Password:=DBPassWord;
    Open;
  end;
  DataSource1.DataSet:=TTB;
end;

procedure TFrmSetADType.CmdExitClick(Sender: TObject);
begin
  close;
end;

procedure TFrmSetADType.DBGrid1DblClick(Sender: TObject);
begin
  if MessageDlg('是否要删除 ['+TTB.FieldValues['TypeName']+
    '] 项分类?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
    begin
      try
        TTB.Delete;
      except
        ShowMessage('操作错误!');
      end;
    end;
end;

procedure TFrmSetADType.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if TTB.RecordCount<=0 then
    TTB.AppendRecord(['基本分类']);
  TTB.Free;
end;

end.