main.pas

MY SQL的管理的程序源码, 发现程序员开发网上没有, 就传上来了.

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, ShellApi, StdCtrls, DB, ADODB, Mask, RzEdit,
  RzBtnEdt;

type
  TFMAIN = class(TForm)
    pc: TPageControl;
    ts0: TTabSheet;
    ts2: TTabSheet;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ts3: TTabSheet;
    ts4: TTabSheet;
    ts5: TTabSheet;
    ts7: TTabSheet;
    ts6: TTabSheet;
    ts8: TTabSheet;
    Label1: TLabel;
    tb_server: TEdit;
    Label2: TLabel;
    tb_uid: TEdit;
    Label3: TLabel;
    tb_pwd: TEdit;
    Button1: TButton;
    Button2: TButton;
    lbl_info: TLabel;
    Timer1: TTimer;
    rb1: TRadioButton;
    rb2: TRadioButton;
    Label4: TLabel;
    Label5: TLabel;
    tb_memo: TMemo;
    conn: TADOConnection;
    q: TADOQuery;
    lbl_ini: TLabel;
    Label6: TLabel;
    cb_db: TComboBox;
    Label7: TLabel;
    tb_bak_path: TRzButtonEdit;
    Button3: TButton;
    Button4: TButton;
    Label8: TLabel;
    SaveDialog1: TSaveDialog;
    Label9: TLabel;
    cb_db2: TComboBox;
    Label10: TLabel;
    tb_bak_path2: TRzButtonEdit;
    Button5: TButton;
    Button6: TButton;
    Label11: TLabel;
    OpenDialog1: TOpenDialog;
    Label12: TLabel;
    cb_db3: TComboBox;
    Button7: TButton;
    Button8: TButton;
    Label13: TLabel;
    Label14: TLabel;
    cb_db4: TComboBox;
    Label15: TLabel;
    tb_m_path: TRzButtonEdit;
    Button9: TButton;
    Button10: TButton;
    Label16: TLabel;
    Label17: TLabel;
    tb_l_path: TRzButtonEdit;
    Label18: TLabel;
    cb_db5: TComboBox;
    Button11: TButton;
    Button12: TButton;
    Label19: TLabel;
    ts1: TTabSheet;
    Label20: TLabel;
    cb_db6: TComboBox;
    Button13: TButton;
    Button14: TButton;
    Label21: TLabel;
    SaveDialog2: TSaveDialog;
    Label22: TLabel;
    tb_db: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    tb_m_size: TEdit;
    Button15: TButton;
    Button16: TButton;
    Label25: TLabel;
    Label26: TLabel;
    tb_m_group: TEdit;
    Label27: TLabel;
    tb_m_max: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    tb_l_size: TEdit;
    Label30: TLabel;
    tb_l_group: TEdit;
    Label31: TLabel;
    tb_l_max: TEdit;
    tb_m_file: TRzButtonEdit;
    tb_l_file: TRzButtonEdit;
    SaveDialog3: TSaveDialog;
    SaveDialog4: TSaveDialog;
    procedure pcChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure rb2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure tb_serverKeyPress(Sender: TObject; var Key: Char);
    procedure rb1KeyPress(Sender: TObject; var Key: Char);
    procedure rb2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure tb_uidKeyPress(Sender: TObject; var Key: Char);
    procedure tb_pwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure tb_bak_pathButtonClick(Sender: TObject);
    procedure cb_dbKeyPress(Sender: TObject; var Key: Char);
    procedure tb_bak_pathKeyPress(Sender: TObject; var Key: Char);
    procedure tb_bak_path2ButtonClick(Sender: TObject);
    procedure cb_db2KeyPress(Sender: TObject; var Key: Char);
    procedure tb_bak_path2KeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure cb_db3KeyPress(Sender: TObject; var Key: Char);
    procedure Button9Click(Sender: TObject);
    procedure tb_m_pathButtonClick(Sender: TObject);
    procedure cb_db4KeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_pathKeyPress(Sender: TObject; var Key: Char);
    procedure tb_l_pathButtonClick(Sender: TObject);
    procedure tb_l_pathKeyPress(Sender: TObject; var Key: Char);
    procedure Button11Click(Sender: TObject);
    procedure cb_db5KeyPress(Sender: TObject; var Key: Char);
    procedure cb_db6KeyPress(Sender: TObject; var Key: Char);
    procedure Button13Click(Sender: TObject);
    procedure tb_memoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button15Click(Sender: TObject);
    procedure tb_dbKeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_fileKeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_sizeKeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_groupKeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_maxKeyPress(Sender: TObject; var Key: Char);
    procedure tb_l_fileKeyPress(Sender: TObject; var Key: Char);
    procedure tb_l_sizeKeyPress(Sender: TObject; var Key: Char);
    procedure tb_l_groupKeyPress(Sender: TObject; var Key: Char);
    procedure tb_l_maxKeyPress(Sender: TObject; var Key: Char);
    procedure tb_m_fileButtonClick(Sender: TObject);
    procedure tb_l_fileButtonClick(Sender: TObject);
  private
    flag : boolean;
    procedure ini;
    procedure inlog(info:string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMAIN: TFMAIN;

implementation

{$R *.dfm}

procedure TFMAIN.ini;
begin
  With q do
  begin
    Close;
    SQL.Text := 'select name from master..sysdatabases order by name';
    Open;
    cb_db.Clear;
    cb_db3.Clear;
    cb_db5.Clear;
    cb_db6.Clear;
    while not eof do
    begin
      cb_db.Items.Add(FieldValues['name']);
      cb_db3.Items.Add(FieldValues['name']);
      cb_db5.Items.Add(FieldValues['name']);
      cb_db6.Items.Add(FieldValues['name']);
      next;
    end;
    close;
  end;
end;

procedure TFMAIN.inlog(info:string);
begin
  tb_memo.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',now));
  tb_memo.Lines.Add(info);
  tb_memo.Lines.Add('--------------------------------------');
end;

procedure TFMAIN.pcChange(Sender: TObject);
begin
  if not conn.Connected then
  begin
    ShowMessage('错误编号:1000'#13#10#13#10'还没有登录,不能使用此功能,请先登录');
    pc.TabIndex := 0;
    tb_server.SetFocus;
  end;
  case pc.TabIndex of
    0:
      StatusBar1.Panels[1].Text := '如果没有登录,请登录;如果登录,可进行其他操作';
    1:
      StatusBar1.Panels[1].Text := '可以进行数据库的添加操作';
    2:
      StatusBar1.Panels[1].Text := '可以进行数据库的备份操作';
    3:
      StatusBar1.Panels[1].Text := '可以进行数据库的还原操作';
    4:
      StatusBar1.Panels[1].Text := '可以进行数据库的分离操作';
    5:
      StatusBar1.Panels[1].Text := '可以进行数据库的附加操作';
    6:
      StatusBar1.Panels[1].Text := '可以进行数据库的删除操作';
    7:
      StatusBar1.Panels[1].Text := '可以进行数据库的压缩操作';
    8:
      StatusBar1.Panels[1].Text := '所有的数据库有关操作,可使用F10进行备份';
  end;
end;

procedure TFMAIN.Timer1Timer(Sender: TObject);
begin
  if copy(lbl_info.Caption,0,1)='H' then
    lbl_info.Caption := '玩转湘西[http://www.hdut.com]'
  else lbl_info.Caption := 'HPPING想像空间[http://hpping.hdut.com]';
end;

procedure TFMAIN.FormShow(Sender: TObject);
begin
  tb_server.SetFocus;
end;

procedure TFMAIN.rb2Click(Sender: TObject);
begin
  if rb1.Checked then
  begin
    tb_uid.Enabled := true;
    tb_pwd.Enabled := true;
  end
  else
  begin
    tb_uid.Enabled := false;
    tb_pwd.Enabled := false;
  end;
end;

procedure TFMAIN.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TFMAIN.tb_serverKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (tb_server.Text<>'') then rb1.SetFocus;
end;

procedure TFMAIN.rb1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then tb_uid.SetFocus;
end;

procedure TFMAIN.rb2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Button1Click(Sender);
end;

procedure TFMAIN.Button1Click(Sender: TObject);
begin
  if conn.Connected then
  begin
    conn.Close;
    Button1.Caption := '登录[&1]';
    tb_uid.Clear;
    tb_pwd.Clear;
    rb1.Checked := true;
    tb_server.Enabled := true;
    rb1.Enabled := true;
    rb2.Enabled := true;
    tb_uid.Enabled := true;
    tb_pwd.Enabled := true;
    tb_server.SetFocus;
    lbl_ini.Caption := '未连接';
    inlog('成功退出数据库服务器:['+tb_server.Text+']');
  end
  else
  begin
    if tb_server.Text='' then exit;
    if (rb1.Checked) and (tb_uid.Text='') then exit;
    if rb1.Checked then
      conn.ConnectionString := 'Provider=SQLOLEDB.1;Password='+tb_pwd.Text+';Persist Security Info=True;User ID='+tb_uid.Text+';Data Source='+tb_server.Text
    else conn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source='+tb_server.Text;
    conn.LoginPrompt := false;
    try
      conn.Open;
      ini;
      Button1.Caption := '断开[&1]';
      lbl_ini.Caption := '登录中';
      tb_server.Enabled := false;
      rb1.Enabled := false;
      rb2.Enabled := false;
      tb_uid.Enabled := false;
      tb_pwd.Enabled := false;
      inlog('成功登录数据库服务器:['+tb_server.Text+']');
    except
    end;
  end;
end;

procedure TFMAIN.tb_uidKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (tb_uid.Text<>'') then tb_pwd.SetFocus;
end;

procedure TFMAIN.tb_pwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Button1Click(Sender);
end;

procedure TFMAIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if conn.Connected then conn.Close;
end;

procedure TFMAIN.Button3Click(Sender: TObject);
begin
  with q do