main.pas

某疗养院动脉硬化管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Gauges, ADODB, DB;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    tmp: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    ADOCn: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then
  begin
    application.MessageBox('请输入服务器名称或IP地址！','提示',mb_ok+mb_iconinformation);
    Edit1.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)='' then
  begin
    application.MessageBox('请输入数据库名称！','提示',mb_ok+mb_iconinformation);
    Edit2.SetFocus;
    Exit;
  end;
  if Trim(Edit3.Text)='' then
  begin
    application.MessageBox('请输入服务器名称或IP地址！','提示',mb_ok+mb_iconinformation);
    Edit3.SetFocus;
    Exit;
  end;
  ADOCn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+Edit3.Text+';Initial Catalog=master;Data Source='+Edit1.Text+';Password='+Edit4.Text;
  //建库
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE DATABASE '+Edit2.Text);
    //ShowMessage(sql.Text);
    ExecSql;
  end;
  with tmp do
  begin
    sql.Clear;
    sql.Add('USE '+Edit2.Text);
    ExecSql;
  end;
  //检查结果
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE CompliorResult (');
	  sql.Add('ID int IDENTITY (1, 1) NOT NULL PRIMARY KEY,');
	  sql.Add('PatientID varchar(50) NOT NULL ,');
	  sql.Add('PatientName varchar (50) NOT NULL ,');
	  sql.add('Gender varchar (50) NOT NULL,');
	  sql.Add('DateOfBirth varchar(100),');
	  sql.Add('DiaBP varchar(50),');
	  sql.Add('PulsedBP varchar(50),');
	  sql.Add('R_CR_PWV varchar(50),');
	  sql.Add('R_CF_PWV varchar(50),');
	  sql.Add('R_CD_PWV varchar(50),');
	  sql.Add('HeartRate varchar(50),');
	  sql.Add('EstCenteralPulsedBP varchar(50),');
	  sql.Add('CreateDate datetime NOT NULL,');
	  sql.Add('FileName varchar(200),');
	  sql.Add('Status bit NOT NULL)');
    ExecSql;
  end;
  //数据库
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE DBManage (');
    sql.Add('ID int IDENTITY (1, 1) NOT NULL PRIMARY KEY,');
    sql.Add('DBFile varchar(50)  NOT NULL ,');
    sql.Add('CreateDate datetime NOT NULL ,');
    sql.Add('Memo varchar(255))');
    ExecSql;
  end;
  //建议
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE ExamAdvice (');
    sql.Add('ID varchar(10) NOT NULL PRIMARY KEY,');
    sql.Add('Advice varchar(500) NOT NULL)');
    ExecSql;
  end;
  //诊断描述
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE ExamDesc (');
    sql.Add('ID char(10) NOT NULL PRIMARY KEY,');
    sql.Add('SampleDesc varchar(50)  NOT NULL ,');
    sql.Add('DetailDesc varchar(500) NOT NULL)');
    ExecSql;
  end;
  //报告
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE ExamReport (');
    sql.Add('ID int IDENTITY (1, 1) NOT NULL PRIMARY KEY,');
    sql.Add('PatientID varchar(50) NOT NULL ,');
    sql.Add('PatientName varchar(50) NOT NULL ,');
    sql.Add('PicDesc varchar(500) ,');
    sql.Add('ExamDesc varchar(500) ,');
    sql.Add('Advice varchar(500) ,');
    sql.Add('CreateDate datetime NOT NULL DEFAULT GetDate(),');
    sql.Add('Status bit NOT NULL DEFAULT 0,');
    sql.Add('ResultID int NOT NULL)');
    ExecSql;
  end;
  //日志
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE Log(');
    sql.Add('ID int IDENTITY (1, 1) NOT NULL PRIMARY KEY,');
    sql.Add('UserID varchar(10) NOT NULL ,');
    sql.Add('UserName varchar(50) NOT NULL ,');
    sql.Add('Action varchar(50) NOT NULL ,');
    sql.Add('ActionTime datetime NOT NULL DEFAULT GetDate())');
    ExecSql;
  end;
  //影像描述
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE PicDesc (');
    sql.Add('ID char(10) NOT NULL PRIMARY KEY,');
    sql.Add('SampleDesc varchar(50) NOT NULL ,');
    sql.Add('DetailDesc varchar(500) NOT NULL)');
    ExecSql;
  end;
  //用户
  with tmp do
  begin
    sql.Clear;
    sql.Add('CREATE TABLE UserManage (');
    sql.Add('UserID varchar(10) NOT NULL PRIMARY KEY,');
    sql.Add('UserName varchar(10)  NOT NULL ,');
    sql.Add('UserPass varchar(10)  NOT NULL ,');
    sql.Add('UserGroup varchar(10) NOT NULL ,');
    sql.Add('Memo varchar(255))');
    ExecSql;
  end;
  application.MessageBox('数据库安装完成！','提示',mb_ok+mb_iconinformation);
  close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  left:=(Screen.Width-width)div 2;
  top:=(screen.Height-height)div 2;
end;

end.