p_st_update.pas

学员管理的软件

unit P_st_update;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons;

type
  Tst_update = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    StatusBar1: TStatusBar;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    nd: TEdit;
    fz: TEdit;
    tm: TEdit;
    x1: TEdit;
    x2: TEdit;
    x3: TEdit;
    x4: TEdit;
    Panel1: TPanel;
    Image1: TImage;
    lry: TEdit;
    dt: TEdit;
    Label15: TLabel;
    tx: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure txChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  st_update: Tst_update;
  stid:string;
  sstk:string;
  dzsd,xzsd:string;
  mylry:string;

implementation

{$R *.dfm}
uses main;
procedure Tst_update.FormShow(Sender: TObject);
var
s,ss:string;
begin
   with main.DataModule2 do
   begin
   aq1.Close;
   aq1.SQL.Clear;
   aq1.SQL.Add('select id, name from 题型表');
   aq1.Open;
   statusbar1.Panels[0].Text:='';
   tx.Clear;
   while not aq1.Eof do
   begin
   tx.Items.Add(inttostr(aq1.FieldValues['id']));
   statusbar1.Panels[0].Text:=statusbar1.Panels[0].Text+' '+ inttostr(aq1.FieldValues['id'])+':'+aq1.FieldValues['name'];
   aq1.Next;
   end;
   aq1.Close;
   aq1.SQL.Clear;
   aq1.SQL.Add('select * from 试题表 where 试题号='+stid);
   aq1.Open;
   edit1.Enabled:=false;
   edit1.Text:=stid;
   combobox1.Text:=sstk;
   combobox1.Enabled:=false;
   combobox2.Text:=dzsd;
   combobox3.Text:=xzsd;
   combobox2.Enabled:=false;
   combobox3.Enabled:=false;
   ss:=aq1.FieldValues['图片'];
   s:=extractfilepath(application.ExeName)+aq1.FieldValues['图片'];
   if ((not fileexists(s)) and (ss<>'')) then
   showmessage('加载图片是出错');
   image1.Picture.LoadFromFile(s);
   nd.Text:=inttostr(aq1.FieldValues['难度']);
   fz.Text:=inttostr(aq1.FieldValues['分值']);
   tm.Text:=aq1.FieldValues['题目'];
   x1.Text:=aq1.FieldValues['选项1'];
   x2.Text:=aq1.FieldValues['选项2'];
   x3.Text:=aq1.FieldValues['选项3'];
   x4.Text:=aq1.FieldValues['选项4'];
   dt.Text:=datetimetostr(aq1.FieldValues['录入时间']);
   dt.Enabled:=false;
   lry.Text:=mylry;
   lry.Enabled:=false;
   tx.Text:=inttostr(aq1.FieldValues['题型']);
   end;
end;

procedure Tst_update.BitBtn1Click(Sender: TObject);
begin
with main.DataModule2 do
begin
   aq1.Close;
   aq1.SQL.Clear;
   aq1.SQL.Add('select * from 试题表 where 试题号='+stid);
   aq1.Open;
   aq1.Edit;
   aq1.FieldByName('题目').AsString:=tm.Text;
   aq1.FieldByName('选项1').asstring:=x1.Text;
   aq1.FieldByName('选项2').asstring:=x2.Text;
   aq1.FieldByName('选项3').asstring:=x3.Text;
   aq1.FieldByName('选项4').asstring:=x4.Text;
   aq1.FieldByName('难度').AsInteger:=strtoint(nd.Text);
   aq1.FieldByName('分值').AsInteger:=strtoint(fz.Text);
   aq1.Post;
   showmessage('编辑成功！');
end;
end;

procedure Tst_update.txChange(Sender: TObject);
begin
if ((trim(tx.Text) = '1')or(trim(tx.Text)='2')) then
begin
x1.Enabled:=true;
x1.Color:=clwhite;
x2.Enabled:=true;
x2.Color:=clwhite;
x3.Enabled:=true;
x3.Color:=clwhite;
x4.Enabled:=true;
x4.Color:=clwhite;
end
else
begin
x1.Enabled:=false;
x1.Color:=clbtnface;
x2.Enabled:=false;
x2.Color:=clbtnface;
x3.Enabled:=false;
x3.Color:=clbtnface;
x4.Enabled:=false;
x4.Color:=clbtnface;
end;
end;

end.