unit6.pas

理论考试程序,可以自由下载,学习,请多多指点,批评

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls,adodb,db;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Txtktq: TMemo;
    Txtdaq: TMemo;
    Label2: TLabel;
    Label5: TLabel;
    Txtktbh: TEdit;
    Label3: TLabel;
    Txtzqda: TEdit;
    Label4: TLabel;
    Txttpwj: TEdit;
    Label6: TLabel;
    Txtktlx: TEdit;
    procedure XP_Button1Click(Sender: TObject);
    procedure XP_Button5Click(Sender: TObject);
    procedure XP_Button6Click(Sender: TObject);
    procedure XP_Button2Click(Sender: TObject);
    procedure XP_Button3Click(Sender: TObject);
    procedure XP_Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm6.XP_Button1Click(Sender: TObject);
begin
Txtktq.Text:='';
Txtdaq.Text:='';
Txtktbh.Text:='';
Txtzqda.Text:='';
Txttpwj.Text:='';

end;

procedure TForm6.XP_Button5Click(Sender: TObject);
begin
 with form4.Tab1 do begin
//if Not Active then  Active;
   Open ;
  // first;
//   Prior ;

 // Randomize;
  //xx:=random(10);
 // ADOTable1.MoveBy(random(10)) ;
  Txtktbh.text:=inttostr(strtoint(Trim(Txtktbh.Text))-1);
 //  MoveBy(strtoint(Trim(Txtktbh.Text))-1);
  //TxTxtktbh.text:=inttostr(strtoint(Trim(Txtktbh.Text))+1);

 if  Locate('xh;xzda', VarArrayOf([Trim(Txtktbh.Text),'X']), [loPartialKey]) Then begin
  Txtktbh.Text:=inttostr(FieldByName('xh').AsInteger);
  Txtktq.Text:=Trim(FieldByName('kt').AsString);
  Txtdaq.Text:=Trim(FieldByName('da').AsString);
  Txtzqda.Text:=Trim(FieldByName('zqda').AsString);
  Txttpwj.Text:=Trim(FieldByName('tp').AsString);
  Txtktlx.Text:=Trim(FieldByName('ktlx').AsString);

   close ;
   end;
  end;

end;

procedure TForm6.XP_Button6Click(Sender: TObject);
begin
with form4.Tab1 do begin

   open;
   // first;
 //next ;

 // Randomize;
  //xx:=random(10);
 // ADOTable1.MoveBy(random(10)) ;
  Txtktbh.text:=inttostr(strtoint(Trim(Txtktbh.Text))+1);
//   Txtktbh.text:=inttostr(strtoint(Trim(Txtktbh.Text))+1);
if  Locate('xh;xzda', VarArrayOf([Trim(Txtktbh.Text),'X']), [loPartialKey]) Then begin
   Txtktbh.Text:=inttostr(FieldByName('xh').AsInteger);
  Txtktq.Text:=Trim(FieldByName('kt').AsString);
  Txtdaq.Text:=Trim(FieldByName('da').AsString);
  Txtzqda.Text:=Trim(FieldByName('zqda').AsString);
  Txttpwj.Text:=Trim(FieldByName('tp').AsString);
  Txtktlx.Text:=Trim(FieldByName('ktlx').AsString);
  close;
    end;
    end;

end;

procedure TForm6.XP_Button2Click(Sender: TObject);
var tmpsql:string;
begin
 if Txtktbh.Text='' then exit;
 if Txtktq.Text='' then exit;
 if Txtdaq.Text='' then exit;
 if Txtzqda.Text='' then exit;
 if Txttpwj.Text='' then exit;

 tmpsql:='select * from  examfold where xh='+''''+Trim(Txtktbh.Text)+'''';
  with form1.ADOQuery1  do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    open;
   if recordcount<>0 then
   begin
  messagebox(application.handle,'记录已存在！','信息',mb_ok+mb_iconinformation);
   close;
   exit;
   end;
  end;

if Not   form4.Tab1.Active   Then  form4.Tab1.Active;
  form4.tab1.Open;
  form4.Tab1.Append;
  form4.Tab1.FieldByName('xh').AsInteger:=strtoint(Trim(Txtktbh.Text));
  form4.Tab1.FieldByName('kt').AsString:=Trim(Txtktq.Text);
  form4.Tab1.FieldByName('da').AsString:=Trim(Txtdaq.Text);
  form4.Tab1.FieldByName('zqda').AsString:=Trim(Txtzqda.Text);
  form4.Tab1.FieldByName('tp').AsString:=Trim(Txttpwj.Text);
  form4.Tab1.FieldByName('ktlx').AsString:=Trim(Txtktlx.Text);
  form4.Tab1.FieldByName('xzda').AsString:='X';


  form4.Tab1.post;
  form4.Tab1.close;
  messagebox(application.handle,'存盘正确！','信息',mb_ok+mb_iconinformation);



end;

procedure TForm6.XP_Button3Click(Sender: TObject);
var Mytmpsql:String ;
begin
Mytmpsql:='SELECT *  from  examfold where xh='+''''+Trim(Txtktbh.Text)+'''' +' order by int(xh)';
  with form1.ADOQuery1  do begin
    close;
    sql.Clear;
    SQL.Add(Mytmpsql);
    OPEN;
 //  end;
   if form1.ADOQuery1.recordcount=0 then  begin
  messagebox(application.handle,'无此记录！','信息',mb_ok+mb_iconinformation);
   close;
   exit;
   end ;
   first;
  Txtktbh.Text:=Trim(FieldByName('xh').AsString);
  Txtktq.Text:=Trim(FieldByName('kt').AsString);
  Txtdaq.Text:=Trim(FieldByName('da').AsString);
  Txtzqda.Text:=Trim(FieldByName('zqda').AsString);
  Txttpwj.Text:=Trim(FieldByName('tp').AsString);
  Txtktlx.Text:=Trim(FieldByName('ktlx').AsString);

  close;
  end;
end;

procedure TForm6.XP_Button4Click(Sender: TObject);
var tmpsql:string;
begin
tmpsql:='delete from  test where xh='+''''+Trim(Txtktbh.Text)+'''';
  with form1.ADOQuery1  do begin
   // open;
    sql.Clear;
    SQL.Add(tmpsql);
    ExecSQL;
   end;
  messagebox(application.handle,'删除完毕！','信息',mb_ok+mb_iconinformation);

end;
end.