u_tip.~pas

学员管理的软件

unit U_tip;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles,jpeg, StdCtrls, Buttons, RichEdit2Ctrl,Clipbrd;

type
  TF_tip_form = class(TForm)
    RichEdit1: TRichEdit2;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_tip_form: TF_tip_form;
  i2:integer=0;

implementation

{$R *.dfm}

procedure TF_tip_form.FormShow(Sender: TObject);
var
  Picture: TPicture;
  myfile:Tinifile;
  strtip:string;
  index:integer;

begin
richedit1.Clear;
picture:=TPicture.Create;
try
  Picture.LoadFromFile('tip.bmp');
  Clipboard.Assign(Picture);
  RichEdit1.PasteFromClipboard;
finally
  Picture.Free;
end;
//richedit1.Lines.Strings[0]:=richedit1.Lines.Strings[0]+'每日一帖';
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
Randomize;
index:=random(24)+1;
strtip:='str'+inttostr(index);
richedit1.Lines.Add(myfile.ReadString('str',strtip,'你好'));
myfile.Free;
end;

procedure TF_tip_form.FormCreate(Sender: TObject);
var
myfile:Tinifile;
begin
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
myfile.WriteString('str','str1','试题录入时要注意把试题所有的信息录入完整');
myfile.WriteString('str','str2','初始登陆界面出现时，为了安全我们不推荐你使用记住密码功能，除非你的机子是你一个人用的');
myfile.WriteString('str','str3','可以通过''系统设置''，使软件开机时就自动运行，如果你经常使用本软件，可以勾选他');
myfile.WriteString('str','str4','可以通过''系统设置''，设置打开音响效果，这样可以根据不同的声音知道你所执行的动作，或是不合法的操作');
myfile.WriteString('str','str5','可以通过''系统设置''，打开跑马灯效果，这样可以在状态栏显示跳动的文字效果');
myfile.WriteString('str','str6','有任何技术或者软件BUG问题，你可以登陆到我们的网站或者可以到我们的论坛上发言');
myfile.WriteString('str','str7','系统数据库名的配置一定要是EXAM，本来就会引起软件的异常终止');
myfile.WriteString('str','str8','可以通过''系统设置''，进行打印设置，不过这里的打印设置只对网格有效');
myfile.WriteString('str','str9','你可以通过''系统设置''，使软件自动提醒你进行软件数据库的备份操作');
myfile.WriteString('str','str10','你可以通过''系统设置''，屏蔽掉系统功能键');
myfile.WriteString('str','str11','你在本软件中可以更改打印机的默认设置');
myfile.WriteString('str','str12','可以访问我们的帮助信息，以便你更好的使用本软件');
myfile.WriteString('str','str13','你可以通过''系统设置''，进行数据库数据的一致性检查');
myfile.WriteString('str','str14','在软件中提供数据库的连接和备份操作');
myfile.WriteString('str','str15','本软件的统计部分由文本统计和图形统计');
myfile.WriteString('str','str16','本软件提供强大报表操作');
myfile.WriteString('str','str17','本软件新建试卷提倡使用人工方式抽题');
myfile.WriteString('str','str18','本软件提供图标导航功能');
myfile.WriteString('str','str19','考试部分在本软件中提供，客户端通过浏览器考试');
myfile.WriteString('str','str20','本软件可以把数据导出到包括文本，WORD，EXCEL等...');
myfile.WriteString('str','str21','本软件的所有解释权归属杭州电子工业学院,http://www.hziee.edu.cn');
myfile.WriteString('str','str22','谢谢使用我们的软件！http://www.404guy.com');
myfile.WriteString('str','str23','软件开发工具：DELPHI 6.0/7.0 SQL SERVER 2000 STUDIO INTERDEV DREAMWEAVER ULTRADEV/MX');
myfile.WriteString('str','str24','请务必正确配置你的数据库，否则将无法正常使用本软件');
myfile.Free;
end;

procedure TF_tip_form.BitBtn1Click(Sender: TObject);
var
  Picture: TPicture;
  myfile,myfile1:Tinifile;
  strtip:string;
  index:integer;
  i1:integer;
begin
richedit1.Clear;
picture:=TPicture.Create;
try
  Picture.LoadFromFile('tip.bmp');
  Clipboard.Assign(Picture);
  RichEdit1.PasteFromClipboard;
finally
  Picture.Free;
end;
//richedit1.Lines.Strings[0]:=richedit1.Lines.Strings[0]+'每日一帖';
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
myfile1:=Tinifile.Create(extractfilepath(application.ExeName)+'myfile.ini');
i1:=myfile1.ReadInteger('other_setting','tip_order',0);
case i1 of
0:
begin
Randomize;
index:=random(24)+1;
strtip:='str'+inttostr(index);
richedit1.Lines.Add(myfile.ReadString('str',strtip,'你好'));
myfile.Free;
end;
1:
begin
if i2=25 then i2:=0 else inc(i2);
strtip:='str'+inttostr(i2);
richedit1.Lines.Add(myfile.readstring('str',strtip,'你好'));
end;
end;
end;

procedure TF_tip_form.FormClose(Sender: TObject; var Action: TCloseAction);
var
myfile:Tinifile;
begin
myfile:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
myfile.WriteBool('tip','show',checkbox1.Checked);
myfile.Free;
end;

end.