main.pas

这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TFlatButtonUnit, jpeg, DB, DBAccess, MSAccess,
  ComCtrls, ImgList, IniFiles, WinSkinData;

type
  TMainForm = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    MC: TMSConnection;
    StatusBar1: TStatusBar;
    ImageList2: TImageList;
    FlatButton7: TFlatButton;
    SkinData1: TSkinData;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Bas_InputIPData, Bas_EnterIPData, Bas_EditIPData, Bas_OutPutIPData,
  Bas_InitSortInfo, Bas_FindIPData;

{$R *.dfm}

procedure TMainForm.FlatButton1Click(Sender: TObject);
begin
  Bas_InputIPDataForm := TBas_InputIPDataForm.Create(Self);
  Bas_InputIPDataForm.ShowModal;
end;

procedure TMainForm.FlatButton7Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
  INIFileName: string;
  DataINIFile: TIniFile;
  Servername: string;
  SUserName: string;
  SPassword: string;
  DBName  : string;
begin
  ///////////////////////////////////////////////////////////////////////////////
  INIFileName := ExtractFilePath(ParamStr(0)) + 'Database.bin';
  DataINIFile := TIniFile.Create(INIFileName);
  try
    Servername := DataINIFile.ReadString('Server', 'Server', '(local)');
    SUserName := DataINIFile.ReadString('User', 'User', 'sa');
    SPassword := DataINIFile.ReadString('Password', 'PWD', '');
    DBName := DataINIFile.ReadString('DBName', 'DBName', '');
  except
    ShowMessage('系统的根目录中不存在Database.bin文件，请与开发者联系！');
    DataINIFile.Free;
  end;
  DataINIFile.Free;
  try
    MC.Connected := false;
    MC.ConnectString := 'User ID=' + SUserName + ';Password=' + SPassword + ';'
      + ' Data Source=' + Servername + ';Initial Catalog=' + DBName + ';'
      + ' Packet Size=4096;Persist Security Info=True';
    MC.LoginPrompt := false;
    MC.Connected := True;
  except
    ShowMessage('可能数据库服务没有开,或DataBase.Bin文件中的配置信息有误!');
    Application.Terminate;
  end;
end;

procedure TMainForm.FlatButton2Click(Sender: TObject);
begin
  Bas_EnterIPDataForm := TBas_EnterIPDataForm.Create(Self);
  Bas_EnterIPDataForm.ShowModal;
end;

procedure TMainForm.FlatButton3Click(Sender: TObject);
begin
  Bas_EditIPDataForm := TBas_EditIPDataForm.Create(Self);
  Bas_EditIPDataForm.ShowModal;
end;

procedure TMainForm.FlatButton5Click(Sender: TObject);
begin
  Bas_OutPutIPDataForm := TBas_OutPutIPDataForm.Create(Self);
  Bas_OutPutIPDataForm.ShowModal;
end;

procedure TMainForm.FlatButton6Click(Sender: TObject);
begin
  Bas_InitSortInfoForm := TBas_InitSortInfoForm.Create(Self);
  Bas_InitSortInfoForm.ShowModal;
end;

procedure TMainForm.FlatButton4Click(Sender: TObject);
begin
  Bas_FindIPDataForm := TBas_FindIPDataForm.Create(Self);
  Bas_FindIPDataForm.ShowModal;
end;

end.