📄 utkwh.~pas
字号:
unit uTKWH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBTables, ADODB, DB, Grids, DBGrids,
Buttons, ExtCtrls, jpeg, Word2000, OleServer;
type
TfrmTKWH = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
Label34: TLabel;
Panel3: TPanel;
PageControl1: TPageControl;
SZ_TS: TTabSheet;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
XZ_DBGrid: TDBGrid;
TH_Edit1: TEdit;
TM_Edit1: TEdit;
XXA_Edit: TEdit;
XXC_Edit: TEdit;
XXB_Edit: TEdit;
XXD_Edit: TEdit;
XZtj_BitBtn: TBitBtn;
XZcx_BitBtn: TBitBtn;
XZgx_BitBtn: TBitBtn;
XZsc_BitBtn: TBitBtn;
XZcxun_BitBtn: TBitBtn;
XZ_RadioButton1: TRadioButton;
XZ_RadioButton2: TRadioButton;
ZJ_ComboBox1: TComboBox;
DA_ComboBox: TComboBox;
TX_ComboBox1: TComboBox;
NY_ComboBox1: TComboBox;
TabSheet2: TTabSheet;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Label62: TLabel;
TK_DBGrid: TDBGrid;
TH_Edit2: TEdit;
TM_Edit2: TEdit;
K_Edit1: TEdit;
K_Edit4: TEdit;
K_Edit2: TEdit;
K_Edit5: TEdit;
TKtj_BitBtn: TBitBtn;
TKcx_BitBtn: TBitBtn;
TKgx_BitBtn: TBitBtn;
TKsc_BitBtn: TBitBtn;
TKcxun_BitBtn: TBitBtn;
TK_RadioButton1: TRadioButton;
TK_RadioButton2: TRadioButton;
ZJ_ComboBox2: TComboBox;
K_ComboBox: TComboBox;
TX_ComboBox2: TComboBox;
NY_ComboBox2: TComboBox;
K_Edit3: TEdit;
TabSheet3: TTabSheet;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Bevel7: TBevel;
Bevel8: TBevel;
Bevel9: TBevel;
JD_DBGrid: TDBGrid;
TH_Edit3: TEdit;
JDtj_BitBtn: TBitBtn;
JDcx_BitBtn: TBitBtn;
JDgx_BitBtn: TBitBtn;
JDsc_BitBtn: TBitBtn;
JDcxun_BitBtn: TBitBtn;
JD_RadioButton1: TRadioButton;
JD_RadioButton2: TRadioButton;
ZJ_ComboBox3: TComboBox;
TX_ComboBox3: TComboBox;
NY_ComboBox3: TComboBox;
DA_Memo1: TMemo;
TM_Memo1: TMemo;
TabSheet4: TTabSheet;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label32: TLabel;
Label33: TLabel;
Bevel10: TBevel;
Bevel11: TBevel;
Bevel12: TBevel;
CXSJ_DBGrid: TDBGrid;
TH_Edit4: TEdit;
CXSJtj_BitBtn: TBitBtn;
CXSJcx_BitBtn: TBitBtn;
CXSJsc_BitBtn: TBitBtn;
CXSJcxun_BitBtn: TBitBtn;
CXSJ_RadioButton1: TRadioButton;
CXSJ_RadioButton2: TRadioButton;
ZJ_ComboBox4: TComboBox;
TX_ComboBox4: TComboBox;
NY_ComboBox4: TComboBox;
DA_Memo2: TMemo;
TM_Memo2: TMemo;
TabSheet1: TTabSheet;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
ZJ_DBGrid: TDBGrid;
ZJSC_BitBtn: TBitBtn;
ZJXG_BitBtn: TBitBtn;
ZJCX_BitBtn: TBitBtn;
XH_Edit: TEdit;
ZJM_Edit: TEdit;
ZJXH_Edit: TEdit;
btnCancel: TSpeedButton;
CXSJgx_BitBtn: TBitBtn;
ZJTJ_BitBtn: TBitBtn;
procedure PageControl1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure XZ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TK_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure JD_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CXSJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure XZ_RadioButton2Click(Sender: TObject);
procedure TK_RadioButton2Click(Sender: TObject);
procedure JD_RadioButton2Click(Sender: TObject);
procedure CXSJ_RadioButton2Click(Sender: TObject);
procedure XZgx_BitBtnClick(Sender: TObject);
procedure XZtj_BitBtnClick(Sender: TObject);
procedure XZcx_BitBtnClick(Sender: TObject);
procedure TKgx_BitBtnClick(Sender: TObject);
procedure TKtj_BitBtnClick(Sender: TObject);
procedure TKcx_BitBtnClick(Sender: TObject);
procedure JDgx_BitBtnClick(Sender: TObject);
procedure JDtj_BitBtnClick(Sender: TObject);
procedure JDcx_BitBtnClick(Sender: TObject);
procedure CXSJgx_BitBtnClick(Sender: TObject);
procedure CXSJtj_BitBtnClick(Sender: TObject);
procedure CXSJcx_BitBtnClick(Sender: TObject);
procedure XZcxun_BitBtnClick(Sender: TObject);
procedure TKcxun_BitBtnClick(Sender: TObject);
procedure JDcxun_BitBtnClick(Sender: TObject);
procedure CXSJcxun_BitBtnClick(Sender: TObject);
procedure XZsc_BitBtnClick(Sender: TObject);
procedure TKsc_BitBtnClick(Sender: TObject);
procedure JDsc_BitBtnClick(Sender: TObject);
procedure CXSJsc_BitBtnClick(Sender: TObject);
procedure CXSJ_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure JD_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure TK_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure XZ_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure ZJ_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure ZJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ZJTJ_BitBtnClick(Sender: TObject);
procedure ZJSC_BitBtnClick(Sender: TObject);
procedure ZJXG_BitBtnClick(Sender: TObject);
procedure ZJCX_BitBtnClick(Sender: TObject);
procedure ZJGB_BitBtnClick(Sender: TObject);
procedure ZLZJ_BitBtnClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTKWH: TfrmTKWH;
implementation
uses ShellAPI, uData;
{$R *.dfm}
//----------------------------------------------------
//初始化工作,题库维护模块的所有控件进行设置
procedure TfrmTKWH.FormShow(Sender: TObject);
var
temp:string;
begin
TX_ComboBox1.clear;
ZJ_ComboBox1.clear;
NY_ComboBox1.Clear;
TX_ComboBox2.Clear;
K_ComboBox.Clear;
ZJ_ComboBox2.Clear;
NY_ComboBox2.Clear;
TX_ComboBox3.Clear;
NY_ComboBox3.Clear;
ZJ_ComboBox3.Clear;
TX_ComboBox4.Clear;
NY_ComboBox4.Clear;
ZJ_ComboBox4.clear;
//数据库连接进行设置
ADOQuery1.Connection := dmPer.acPer ;
ADOQuery2.Connection := dmPer.acPer ;
//初始化工作,对各种题型的维护界面进行设置
PageControl1Change(PageControl1);
//题库维护模块的控件进行设置,包括题型设置,难易设置,章节设置
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select TypeName From TiXingFen');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
temp:=ADOQuery2.FieldValues['TypeName'];
TX_ComboBox1.Items.Add(temp);
TX_ComboBox2.Items.Add(temp);
TX_ComboBox3.Items.Add(temp);
TX_ComboBox4.Items.Add(temp);
ADOQuery2.Next;
end;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select NYD From NanYiDj');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
temp:=ADOQuery2.FieldValues['NYD'];
NY_ComboBox1.Items.Add(temp);
NY_ComboBox2.Items.Add(temp);
NY_ComboBox3.Items.Add(temp);
NY_ComboBox4.Items.Add(temp);
ADOQuery2.Next;
end;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select ZJ,ZJName From ZhangJieJG');
ADOQuery2.Open;
While not ADOQuery2.Eof do
begin
temp:=ADOQuery2.FieldValues['ZJ']+' '+ADOQuery2.FieldValues['ZJName'];
ZJ_ComboBox1.Items.Add(temp);
ZJ_ComboBox2.Items.Add(temp);
ZJ_ComboBox3.Items.Add(temp);
ZJ_ComboBox4.Items.Add(temp);
ADOQuery2.Next;
end;
//其他控件设置
XZ_RadioButton1.Checked:=true;
XZtj_BitBtn.Enabled:=false;
XZcx_BitBtn.Enabled:=false;
TK_RadioButton1.Checked:=true;
TKtj_BitBtn.Enabled:=false;
TKcx_BitBtn.Enabled:=false;
JD_RadioButton1.Checked:=true;
JDtj_BitBtn.Enabled:=false;
JDcx_BitBtn.Enabled:=false;
CXSJ_RadioButton1.Checked:=true;
CXSJtj_BitBtn.Enabled:=false;
CXSJcx_BitBtn.Enabled:=false;
end;
//----------------------------------------------------
//初始化工作,对各种题型的维护界面进行设置
procedure TfrmTKWH.PageControl1Change(Sender: TObject);
begin
Case PageControl1.ActivePageIndex of
0:begin //选择题
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
// ADOQuery1.SQL.Add('Select a.BH,b.TypeName,a.TM,a.A,a.B,a.C,a.D,a.DA,a.CZ,c.NYD,a.TypeID,a.NY from TXuanZe a,TiXingFen b,NanYiDj c where a.TypeID=b.TypeID and a.NY=c.BH ORDER BY a.BH');
ADOQuery1.SQL.Add('Select * from TXuanZe');
ADOQuery1.Open;
XZ_DBGrid.Fields[0].DisplayLabel:='题号';
XZ_DBGrid.Fields[1].DisplayLabel:='题型';
XZ_DBGrid.Fields[2].DisplayLabel:='题目';
XZ_DBGrid.Fields[3].DisplayLabel:='选项A';
XZ_DBGrid.Fields[4].DisplayLabel:='选项B';
XZ_DBGrid.Fields[5].DisplayLabel:='选项C';
XZ_DBGrid.Fields[6].DisplayLabel:='选项d';
XZ_DBGrid.Fields[7].DisplayLabel:='答案';
XZ_DBGrid.Fields[8].DisplayLabel:='所在章节';
XZ_DBGrid.Fields[9].DisplayLabel:='难易度';
XZ_DBGrid.Fields[0].DisplayWidth:=5;
XZ_DBGrid.Fields[1].DisplayWidth:=10;
XZ_DBGrid.Fields[2].DisplayWidth:=20;
XZ_DBGrid.Fields[3].DisplayWidth:=20;
XZ_DBGrid.Fields[4].DisplayWidth:=20;
XZ_DBGrid.Fields[5].DisplayWidth:=20;
XZ_DBGrid.Fields[6].DisplayWidth:=20;
XZ_DBGrid.Fields[7].DisplayWidth:=5;
XZ_DBGrid.Fields[8].DisplayWidth:=10;
XZ_DBGrid.Fields[9].DisplayWidth:=5;
end;
1:begin //填空题
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from TTianKong');
ADOQuery1.Open;
TK_DBGrid.Fields[0].DisplayLabel:='题号';
TK_DBGrid.Fields[1].DisplayLabel:='题型';
TK_DBGrid.Fields[2].DisplayLabel:='题目';
TK_DBGrid.Fields[3].DisplayLabel:='空 1';
TK_DBGrid.Fields[4].DisplayLabel:='空 2';
TK_DBGrid.Fields[5].DisplayLabel:='空 3';
TK_DBGrid.Fields[6].DisplayLabel:='空 4';
TK_DBGrid.Fields[7].DisplayLabel:='空 5';
TK_DBGrid.Fields[8].DisplayLabel:='应填空数';
TK_DBGrid.Fields[9].DisplayLabel:='难易度';
TK_DBGrid.Fields[10].DisplayLabel:='所在章节';
end;
2:begin //简答题
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from TJianDa');
ADOQuery1.Open;
JD_DBGrid.Fields[0].DisplayLabel:='题号';
JD_DBGrid.Fields[1].DisplayLabel:='题型';
JD_DBGrid.Fields[2].DisplayLabel:='题目';
JD_DBGrid.Fields[3].DisplayLabel:='答案';
JD_DBGrid.Fields[4].DisplayLabel:='难易';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -