tblcomment.pas

MysqlFront的源码

unit tblcomment;


// -------------------------------------
// HeidiSQL
// Edit table-comment
// -------------------------------------


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  Ttablecomment = class(TForm)
    Label1: TLabel;
    EditComment: TEdit;
    ButtonOK: TButton;
    ButtonCancel: TButton;
    Bevel1: TBevel;
    ComboBoxTableName: TComboBox;
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBoxTableNameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tablecomment: Ttablecomment;

implementation

uses Childwin, helpers, Main;

{$R *.DFM}

procedure Ttablecomment.ButtonCancelClick(Sender: TObject);
begin
  close;
end;

procedure Ttablecomment.ButtonOKClick(Sender: TObject);
begin
  with TMDIChild(Application.Mainform.ActiveMDIChild) do
  begin
    screen.Cursor := crHourGlass;
    ExecQuery('ALTER TABLE ' + ComboBoxTableName.Text + ' COMMENT = ''' + escape_string(EditComment.Text) + '''');
    ShowDBProperties(self);
  end;
  close;
end;

procedure Ttablecomment.FormShow(Sender: TObject);
var i : integer;
begin
  // read tables
//  messagedlg('sdf',mtwarning, [], 0);
  ComboBoxTableName.Items.Clear;
  with TMDIChild(Application.Mainform.ActiveMDIChild).Tabellenliste do
  begin
    for i:=0 to Items.Count-1 do
      self.ComboBoxTableName.Items.Add(Items[i].Caption);
    self.ComboBoxTableName.ItemIndex := Selected.Index;
    self.EditComment.Text := Selected.SubItems[4];
  end;
end;

procedure Ttablecomment.ComboBoxTableNameChange(Sender: TObject);
begin
 EditComment.Text := TMDIChild(Mainform.ActiveMDIChild).Tabellenliste.Items[ComboBoxTableName.ItemIndex].SubItems[5];
end;

end.