📄 timuwh_unit.pas
字号:
unit TiMuWH_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBTables, ADODB, DB, Grids, DBGrids,
Buttons, ExtCtrls, jpeg, Word2000, OleServer;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
SZ_TS: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
XZ_DBGrid: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
TH_Edit1: TEdit;
TM_Edit1: TEdit;
XXA_Edit: TEdit;
XXC_Edit: TEdit;
XXB_Edit: TEdit;
XXD_Edit: TEdit;
Bevel1: TBevel;
XZgb_BitBtn: TBitBtn;
XZtj_BitBtn: TBitBtn;
XZcx_BitBtn: TBitBtn;
XZgx_BitBtn: TBitBtn;
Bevel2: TBevel;
XZsc_BitBtn: TBitBtn;
XZcxun_BitBtn: TBitBtn;
Bevel3: TBevel;
XZ_RadioButton1: TRadioButton;
XZ_RadioButton2: TRadioButton;
ZJ_ComboBox1: TComboBox;
DA_ComboBox: TComboBox;
TX_ComboBox1: TComboBox;
NY_ComboBox1: TComboBox;
TK_DBGrid: TDBGrid;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
TH_Edit2: TEdit;
TM_Edit2: TEdit;
K_Edit1: TEdit;
K_Edit4: TEdit;
K_Edit2: TEdit;
K_Edit5: TEdit;
Bevel4: TBevel;
TKgb_BitBtn: TBitBtn;
TKtj_BitBtn: TBitBtn;
TKcx_BitBtn: TBitBtn;
TKgx_BitBtn: TBitBtn;
Bevel5: TBevel;
TKsc_BitBtn: TBitBtn;
TKcxun_BitBtn: TBitBtn;
Bevel6: TBevel;
TK_RadioButton1: TRadioButton;
TK_RadioButton2: TRadioButton;
ZJ_ComboBox2: TComboBox;
K_ComboBox: TComboBox;
TX_ComboBox2: TComboBox;
NY_ComboBox2: TComboBox;
JD_DBGrid: TDBGrid;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
TH_Edit3: TEdit;
Bevel7: TBevel;
JDgb_BitBtn: TBitBtn;
JDtj_BitBtn: TBitBtn;
JDcx_BitBtn: TBitBtn;
JDgx_BitBtn: TBitBtn;
Bevel8: TBevel;
JDsc_BitBtn: TBitBtn;
JDcxun_BitBtn: TBitBtn;
Bevel9: TBevel;
JD_RadioButton1: TRadioButton;
JD_RadioButton2: TRadioButton;
ZJ_ComboBox3: TComboBox;
TX_ComboBox3: TComboBox;
NY_ComboBox3: TComboBox;
Label62: TLabel;
K_Edit3: TEdit;
DA_Memo1: TMemo;
TM_Memo1: TMemo;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label32: TLabel;
Label33: TLabel;
Bevel10: TBevel;
Bevel11: TBevel;
Bevel12: TBevel;
YLLS_DBGrid: TDBGrid;
TH_Edit4: TEdit;
YLLSgb_BitBtn: TBitBtn;
YLLStj_BitBtn: TBitBtn;
YLLScx_BitBtn: TBitBtn;
YLLSgx_BitBtn: TBitBtn;
YLLSsc_BitBtn: TBitBtn;
YLLScxun_BitBtn: TBitBtn;
YLLS_RadioButton1: TRadioButton;
YLLS_RadioButton2: TRadioButton;
ZJ_ComboBox4: TComboBox;
TX_ComboBox4: TComboBox;
NY_ComboBox4: TComboBox;
DA_Memo2: TMemo;
TM_Memo2: TMemo;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Bevel13: TBevel;
Bevel14: TBevel;
Bevel15: TBevel;
XTSJ_DBGrid: TDBGrid;
TH_Edit5: TEdit;
XTSJgb_BitBtn: TBitBtn;
XTSJtj_BitBtn: TBitBtn;
XTSJcx_BitBtn: TBitBtn;
XTSJgx_BitBtn: TBitBtn;
XTSJsc_BitBtn: TBitBtn;
XYSJcxun_BitBtn: TBitBtn;
XTSJ_RadioButton1: TRadioButton;
XTSJ_RadioButton2: TRadioButton;
ZJ_ComboBox5: TComboBox;
TX_ComboBox5: TComboBox;
NY_ComboBox5: TComboBox;
DA_Memo3: TMemo;
TM_Memo3: TMemo;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label44: TLabel;
Label45: TLabel;
Bevel16: TBevel;
Bevel17: TBevel;
Bevel18: TBevel;
XTCZ_DBGrid: TDBGrid;
TH_Edit6: TEdit;
XTCZgb_BitBtn: TBitBtn;
XTCZtj_BitBtn: TBitBtn;
XTCZcx_BitBtn: TBitBtn;
XTCZgx_BitBtn: TBitBtn;
XTCZcxun_BitBtn: TBitBtn;
XTCZ_RadioButton1: TRadioButton;
XTCZ_RadioButton2: TRadioButton;
ZJ_ComboBox6: TComboBox;
TX_ComboBox6: TComboBox;
NY_ComboBox6: TComboBox;
TM_Memo4: TMemo;
XTCZsc_BitBtn: TBitBtn;
ADOQuery2: TADOQuery;
Label46: TLabel;
TMWJ_Edit: TEdit;
Label47: TLabel;
DAWJ_Edit: TEdit;
Label43: TLabel;
W3DA_Edit: TEdit;
DAWJ1_Edit: TEdit;
Label49: TLabel;
W1DA_Edit: TEdit;
Label50: TLabel;
TMWJ1_Edit: TEdit;
Label51: TLabel;
W4DA_Edit: TEdit;
Label52: TLabel;
Label56: TLabel;
DAWJ2_Edit: TEdit;
Label57: TLabel;
W5DA_Edit: TEdit;
Label58: TLabel;
WTS_ComboBox: TComboBox;
DAWJ3_Edit: TEdit;
W2DA_Edit: TEdit;
Label48: TLabel;
Label53: TLabel;
Label54: TLabel;
DAWJ4_Edit: TEdit;
Label55: TLabel;
DAWJ5_Edit: TEdit;
BitBtn1: TBitBtn;
TabSheet1: TTabSheet;
ZJ_DBGrid: TDBGrid;
ZJTJ_BitBtn: TBitBtn;
ZJSC_BitBtn: TBitBtn;
ZJXG_BitBtn: TBitBtn;
ZJCX_BitBtn: TBitBtn;
Label59: TLabel;
Label60: TLabel;
XH_Edit: TEdit;
ZJM_Edit: TEdit;
Image1: TImage;
Label61: TLabel;
ZJXH_Edit: TEdit;
BitBtn2: TBitBtn;
Image2: TImage;
Label1: TLabel;
DKTM_BitBtn1: TBitBtn;
DKDA_BitBtn1: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: 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 YLLS_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure XTSJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure XTCZ_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 YLLS_RadioButton2Click(Sender: TObject);
procedure XTSJ_RadioButton2Click(Sender: TObject);
procedure XTCZ_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 YLLSgx_BitBtnClick(Sender: TObject);
procedure YLLStj_BitBtnClick(Sender: TObject);
procedure YLLScx_BitBtnClick(Sender: TObject);
procedure XTSJgx_BitBtnClick(Sender: TObject);
procedure XTSJtj_BitBtnClick(Sender: TObject);
procedure XTSJcx_BitBtnClick(Sender: TObject);
procedure XTCZgx_BitBtnClick(Sender: TObject);
procedure XTCZtj_BitBtnClick(Sender: TObject);
procedure XTCZcx_BitBtnClick(Sender: TObject);
procedure XZcxun_BitBtnClick(Sender: TObject);
procedure TKcxun_BitBtnClick(Sender: TObject);
procedure JDcxun_BitBtnClick(Sender: TObject);
procedure YLLScxun_BitBtnClick(Sender: TObject);
procedure XYSJcxun_BitBtnClick(Sender: TObject);
procedure XTCZcxun_BitBtnClick(Sender: TObject);
procedure XZsc_BitBtnClick(Sender: TObject);
procedure TKsc_BitBtnClick(Sender: TObject);
procedure JDsc_BitBtnClick(Sender: TObject);
procedure YLLSsc_BitBtnClick(Sender: TObject);
procedure XTSJsc_BitBtnClick(Sender: TObject);
procedure XTCZsc_BitBtnClick(Sender: TObject);
procedure XZgb_BitBtnClick(Sender: TObject);
procedure TKgb_BitBtnClick(Sender: TObject);
procedure JDgb_BitBtnClick(Sender: TObject);
procedure YLLSgb_BitBtnClick(Sender: TObject);
procedure XTSJgb_BitBtnClick(Sender: TObject);
procedure XTCZgb_BitBtnClick(Sender: TObject);
procedure XTCZ_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure XTSJ_DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure YLLS_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 BitBtn1Click(Sender: TObject);
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 BitBtn2Click(Sender: TObject);
procedure DKTM_BitBtn1Click(Sender: TObject);
procedure ZLZJ_BitBtnClick(Sender: TObject);
procedure DKDA_BitBtn1Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DataModule, BZ_Unit,ShellAPI;
{$R *.dfm}
procedure TForm1.PageControl1Change(Sender: TObject);
begin
Case PageControl1.ActivePageIndex of
0:begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select XuanZeTi.BH,Type.TypeName,XuanZeTi.TM,XuanZeTi.A,XuanZeTi.B,XuanZeTi.C,XuanZeTi.D,XuanZeTi.DA,XuanZeTi.CZ,NYD.NYD,XuanZeTi.TypeID,XuanZeTi.NY from XuanZeTi,Type,NYD where XuanZeTi.TypeID=Type.TypeID and XuanZeTi.NY=NYD.BH ORDER BY XuanZeTi.BH ASC');
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 TianKong');
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 JianDaTi');
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:='难易';
JD_DBGrid.Fields[5].DisplayLabel:='所在章节';
end;
3:begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -