電路分析試卷管理系統(tǒng)代碼-無憂無慮畢設(shè)網(wǎng)

無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無憂無慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠(chéng)為您服務(wù)！ 附錄 題庫維護(hù)管理代碼： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： TM_Memo2: TMemo； btnCancel: TSpeedButton； CXSJgx_BitBtn: TBitBtn； TabSheet5: TTabSheet； TabSheet6: TTabSheet； ZJ_DBGrid: TDBGrid； Label1: TLabel； XH_Edit: TEdit； Label35: TLabel； ZJXH_Edit: TEdit； Label36: TLabel； ZJM_Edit: TEdit； ZJTJ_BitBtn: TBitBtn； BitBtn2: TBitBtn； ZJXG_BitBtn: TBitBtn； BitBtn4: TBitBtn； JS_DBGrid: TDBGrid； Label37: TLabel； Label38: TLabel； Label39: TLabel； Label40: TLabel； ZJ_ComboBox5: TComboBox； NY_ComboBox5: TComboBox； TX_ComboBox5: TComboBox； TH_Edit5: TEdit； TM_Memo3: TMemo； Label41: TLabel； Label42: TLabel； Bevel13: TBevel； TS_RadioButton1: TRadioButton； TS_RadioButton2: TRadioButton； TS_scBitBtn: TBitBtn； TS_cxunBitBtn6: TBitBtn； TS_cxBitBtn: TBitBtn； TS_tjBitBtn: TBitBtn； TS_gxBitBtn: TBitBtn； Bevel14: TBevel； Bevel15: TBevel； DA_Memo3: TMemo； 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 /- /初始化工作 ,題庫維護(hù)模塊的所有控件進(jìn)行設(shè)置 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； TX_ComboBox5.Clear； NY_ComboBox5.Clear； ZJ_ComboBox5.clear； /數(shù)據(jù)庫連接進(jìn)行設(shè)置 ADOQuery1.Connection := dmPer.acPer ； ADOQuery2.Connection := dmPer.acPer ； /初始化工作 ,對(duì)各種題型的維護(hù)界面進(jìn)行設(shè)置 PageControl1Change(PageControl1)； /題庫維護(hù)模塊的控件進(jìn)行設(shè)置 ,包括題型設(shè)置 ,難易設(shè)置 ,章節(jié)設(shè)置 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeName From TiXingFen)； ADOQuery2.Open； While not ADOQuery2.Eof do begin temp:=ADOQuery2.FieldValuesTypeName； TX_ComboBox1.Items.Add(temp)； TX_ComboBox2.Items.Add(temp)； TX_ComboBox3.Items.Add(temp)； TX_ComboBox4.Items.Add(temp)； TX_ComboBox5.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.FieldValuesNYD； NY_ComboBox1.Items.Add(temp)； NY_ComboBox2.Items.Add(temp)； NY_ComboBox3.Items.Add(temp)； NY_ComboBox4.Items.Add(temp)； NY_ComboBox5.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.FieldValuesZJ+ +ADOQuery2.FieldValuesZJName； ZJ_ComboBox1.Items.Add(temp)； ZJ_ComboBox2.Items.Add(temp)； ZJ_ComboBox3.Items.Add(temp)； ZJ_ComboBox4.Items.Add(temp)； ZJ_ComboBox5.Items.Add(temp)； ADOQuery2.Next； end； /其他控件設(shè)置 XZ_RadioButton1.Checked:=true； XZtj_BitBtn.Enabled:=false； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； TS_RadioButton1.Checked:=true； TS_tjBitBtn.Enabled:=false； TS_cxBitBtn.Enabled:=false； end； /- /初始化工作 ,對(duì)各種題 型的維護(hù)界面進(jìn)行設(shè)置 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.Fields0.DisplayLabel:=題號(hào) ； XZ_DBGrid.Fields1.DisplayLabel:=題型 ； XZ_DBGrid.Fields2.DisplayLabel:=題目 ； XZ_DBGrid.Fields3.DisplayLabel:=選項(xiàng) A； XZ_DBGrid.Fields4.DisplayLabel:=選項(xiàng) B； XZ_DBGrid.Fields5.DisplayLabel:=選項(xiàng) C； XZ_DBGrid.Fields6.DisplayLabel:=選項(xiàng) d； XZ_DBGrid.Fields7.DisplayLabel:=答案 ； XZ_DBGrid.Fields8.DisplayLabel:=所在章節(jié) ； XZ_DBGrid.Fields9.DisplayLabel:=難易度 ； XZ_DBGrid.Fields0.DisplayWidth:=5； XZ_DBGrid.Fields1.DisplayWidth:=10； XZ_DBGrid.Fields2.DisplayWidth:=20； XZ_DBGrid.Fields3.DisplayWidth:=20； XZ_DBGrid.Fields4.DisplayWidth:=20； XZ_DBGrid.Fields5.DisplayWidth:=20； XZ_DBGrid.Fields6.DisplayWidth:=20； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： XZ_DBGrid.Fields7.DisplayWidth:=5； XZ_DBGrid.Fields8.DisplayWidth:=10； XZ_DBGrid.Fields9.DisplayWidth:=5； end； 1:begin /填空題 ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TTianKong)； ADOQuery1.Open； TK_DBGrid.Fields0.DisplayLabel:=題號(hào) ； TK_DBGrid.Fields1.DisplayLabel:=題型 ； TK_DBGrid.Fields2.DisplayLabel:=題目 ； TK_DBGrid.Fields3.DisplayLabel:=空 1； TK_DBGrid.Fields4.DisplayLabel:=空 2； TK_DBGrid.Fields5.DisplayLabel:=空 3； TK_DBGrid.Fields6.DisplayLabel:=空 4； TK_DBGrid.Fields7.DisplayLabel:=空 5； TK_DBGrid.Fields8.DisplayLabel:=應(yīng)填空數(shù) ； TK_DBGrid.Fields9.DisplayLabel:=難易度 ； TK_DBGrid.Fields10.DisplayLabel:=所在章節(jié) ； end； 2:begin /簡(jiǎn)答題 ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TJianDa)； ADOQuery1.Open； JD_DBGrid.Fields0.DisplayLabel:=題號(hào) ； JD_DBGrid.Fields1.DisplayLabel:=題型 ； JD_DBGrid.Fields2.DisplayLabel:=題目 ； JD_DBGrid.Fields3.DisplayLabel:=答案 ； JD_DBGrid.Fields4.DisplayLabel:=難易 ； JD_DBGrid.Fields5.DisplayLabel:=所在章節(jié) ； end； 3:begin /程序設(shè)計(jì)題 ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TChengxu)； ADOQuery1.Open； CXSJ_DBGrid.Fields0.DisplayLabel:=題號(hào) ； CXSJ_DBGrid.Fields1.DisplayLabel:=題型 ； CXSJ_DBGrid.Fields2.DisplayLabel:=題目 ； CXSJ_DBGrid.Fields3.DisplayLabel:=答案 ； CXSJ_DBGrid.Fields4.DisplayLabel:=難易 ； CXSJ_DBGrid.Fields5.DisplayLabel:=所在章節(jié) ； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 4:begin /程序設(shè)計(jì)題 ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from Tjisuan)； ADOQuery1.Open； JS_DBGrid.Fields0.DisplayLabel:=題號(hào) ； JS_DBGrid.Fields1.DisplayLabel:=題型 ； JS_DBGrid.Fields2.DisplayLabel:=題目 ； JS_DBGrid.Fields3.DisplayLabel:=答案 ； JS_DBGrid.Fields4.DisplayLabel:=難易 ； JS_DBGrid.Fields5.DisplayLabel:=所在章節(jié) ； end； 5:begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from ZhangJieJG)； ADOQuery1.Open； ZJ_DBGrid.Fields0.DisplayLabel:=序號(hào) ； ZJ_DBGrid.Fields1.DisplayLabel:=章節(jié)序號(hào) ； ZJ_DBGrid.Fields2.DisplayLabel:=章節(jié)名 ； end； end； end； /- /選擇題維護(hù)界面 響應(yīng)鼠標(biāo)點(diǎn)擊操作 procedure TfrmTKWH.XZ_DBGridMouseUp(Sender: TObject； Button: TMouseButton； Shift: TShiftState； X, Y: Integer)； var temp,temp1,temp11:integer； temp2,temp3,temp4,temp5,temp6,temp7,temp8,temp9,temp10:string； begin temp:=ADOQuery1.fieldbyname(BH).AsInteger； temp2:=ADOQuery1.fieldbyname(TM).AsString； temp3:=ADOQuery1.fieldbyname(A).AsString； temp4:=ADOQuery1.fieldbyname(B).AsString； temp5:=ADOQuery1.fieldbyname(C).AsString； temp6:=ADOQuery1.fieldbyname(D).AsString； temp7:=ADOQuery1.fieldbyname(DA).AsString； temp8:=ADOQuery1.fieldbyname(CZ).AsString； temp1:=ADOQuery1.fieldbyname(TypeID).AsInteger； temp11:=ADOQuery1.fieldbyname(NY).AsInteger； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeName From TiXingFen Where TypeID=:temp1)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery2.Parameters.ParamByName(temp1).Value:=temp1； ADOQuery2.Open； temp10:=ADOQuery2.Fieldbyname(TypeName).AsString； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select NYD From NanYiDj Where BH=:temp11)； ADOQuery2.Parameters.ParamByName(temp11).Value:=temp11； ADOQuery2.Open； temp9:=ADOQuery2.Fieldbyname(NYD).AsString； TH_Edit1.Text:=IntToStr(temp)； TX_ComboBox1.Text:=temp10； TM_Edit1.Text:=temp2； XXA_Edit.Text:=temp3； XXB_Edit.Text:=temp4； XXC_Edit.Text:=temp5； XXD_Edit.Text:=temp6； DA_ComboBox.Text:=temp7； ZJ_ComboBox1.Text:=temp8； NY_ComboBox1.Text:=temp9； end； /- /填空題維護(hù)界面 響應(yīng)鼠標(biāo)點(diǎn)擊操作 procedure TfrmTKWH.TK_DBGridMouseUp(Sender: TObject； Button: TMouseButton； Shift: TShiftState； X, Y: Integer)； var temp,temp1,temp11:integer； temp2,temp3,temp4,temp5,temp6,temp7,temp8,temp9,temp10,temp12:string； begin temp:=ADOQuery1.fieldbyname(BH).AsInteger； temp2:=ADOQuery1.fieldbyname(TM).AsString； temp3:=ADOQuery1.fieldbyname(K1).AsString； temp4:=ADOQuery1.fieldbyname(K2).AsString； temp5:=ADOQuery1.fieldbyname(K3).AsString； temp6:=ADOQuery1.fieldbyname(K4).AsString； temp7:=ADOQuery1.fieldbyname(K5).AsString； temp8:=ADOQuery1.fieldbyname(YTS).AsString； temp9:=ADOQuery1.fieldbyname(CZ).AsString； temp1:=ADOQuery1.fieldbyname(TypeID).AsInteger； temp11:=ADOQuery1.fieldbyname(NY).AsInteger； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeName From TiXingFen Where TypeID=:temp1)； ADOQuery2.Parameters.ParamByName(temp1).Value:=temp1； ADOQuery2.Open； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： temp10:=ADOQuery2.Fieldbyname(TypeName).AsString； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select NYD From NanYiDj Where BH=:temp11)； ADOQuery2.Parameters.ParamByName(temp11).Value:=temp11； ADOQuery2.Open； temp12:=ADOQuery2.Fieldbyname(NYD).AsString； TH_Edit2.Text:=IntToStr(temp)； TX_ComboBox2.Text:=temp10； TM_Edit2.Text:=temp2； K_Edit1.Text:=temp3； K_Edit2.Text:=temp4； K_Edit3.Text:=temp5； K_Edit4.Text:=temp6； K_Edit5.Text:=temp7； K_ComboBox.Text:=temp8； ZJ_ComboBox2.Text:=temp9； NY_ComboBox2.Text:=temp12； end； /- /簡(jiǎn)答題維護(hù)界面 響應(yīng)鼠標(biāo)點(diǎn)擊操作 procedure TfrmTKWH.JD_DBGridMouseUp(Sender: TObject； Button: TMouseButton； Shift: TShiftState； X, Y: Integer)； var temp,temp1,temp11:integer； temp2,temp3,temp4,temp5,temp6:string； begin temp:=ADOQuery1.fieldbyname(BH).AsInteger； temp2:=ADOQuery1.fieldbyname(TM).AsString； temp3:=ADOQuery1.fieldbyname(DA).AsString； temp4:=ADOQuery1.fieldbyname(CZ).AsString； temp1:=ADOQuery1.fieldbyname(TypeID).AsInteger； temp11:=ADOQuery1.fieldbyname(NY).AsInteger； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeName From TiXingFen Where TypeID=:temp1)； ADOQuery2.Parameters.ParamByName(temp1).Value:=temp1； ADOQuery2.Open； temp5:=ADOQuery2.Fieldbyname(TypeName).AsString； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select NYD From NanYiDj Where BH=:temp11)； ADOQuery2.Parameters.ParamByName(temp11).Value:=temp11； ADOQuery2.Open； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： temp6:=ADOQuery2.Fieldbyname(NYD).AsString； TH_Edit3.Text:=IntToStr(temp)； TX_ComboBox3.Text:=temp5； TM_Memo1.Text:=temp2； DA_Memo1.Text:=temp3； ZJ_ComboBox3.Text:=temp4； NY_ComboBox3.Text:=temp6； end； /- /程序設(shè)計(jì)題維護(hù)界面 響應(yīng)鼠標(biāo)點(diǎn)擊操作 procedure TfrmTKWH.CXSJ_DBGridMouseUp(Sender: TObject； Button: TMouseButton； Shift: TShiftState； X, Y: Integer)； var temp,temp1,temp11:integer； temp2,temp3,temp4,temp5,temp6:string； begin temp:=ADOQuery1.fieldbyname(BH).AsInteger； temp2:=ADOQuery1.fieldbyname(TM).AsString； temp3:=ADOQuery1.fieldbyname(DA).AsString； temp4:=ADOQuery1.fieldbyname(CZ).AsString； temp1:=ADOQuery1.fieldbyname(TypeID).AsInteger； temp11:=ADOQuery1.fieldbyname(NY).AsInteger； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeName From TiXingFen Where TypeID=:temp1)； ADOQuery2.Parameters.ParamByName(temp1).Value:=temp1； ADOQuery2.Open； temp5:=ADOQuery2.Fieldbyname(TypeName).AsString； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select NYD From NanYiDj Where BH=:temp11)； ADOQuery2.Parameters.ParamByName(temp11).Value:=temp11； ADOQuery2.Open； temp6:=ADOQuery2.Fieldbyname(NYD).AsString； TH_Edit4.Text:=IntToStr(temp)； TX_ComboBox4.Text:=temp5； TM_Memo2.Text:=temp2； DA_Memo2.Text:=temp3； ZJ_ComboBox4.Text:=temp4； NY_ComboBox4.Text:=temp6； end； procedure TfrmTKWH.XZ_RadioButton2Click(Sender: TObject)； begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery1.Close； ADOQuery1.CursorType:=ctKeyset； ADOQuery1.Open； XZtj_BitBtn.Enabled:=true； XZcx_BitBtn.Enabled:=true； end； procedure TfrmTKWH.TK_RadioButton2Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.CursorType:=ctKeyset； ADOQuery1.Open； TKtj_BitBtn.Enabled:=true； TKcx_BitBtn.Enabled:=true； end； procedure TfrmTKWH.JD_RadioButton2Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.CursorType:=ctKeyset； ADOQuery1.Open； JDtj_BitBtn.Enabled:=true； JDcx_BitBtn.Enabled:=true； end； procedure TfrmTKWH.CXSJ_RadioButton2Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.CursorType:=ctKeyset； ADOQuery1.Open； CXSJtj_BitBtn.Enabled:=true； CXSJcx_BitBtn.Enabled:=true； end； procedure TfrmTKWH.XZgx_BitBtnClick(Sender: TObject)； var temp:string； temp1:integer； begin if TX_ComboBox1.Text= then showmessage(題型不能為空！ ) else if DA_ComboBox.Text= then showmessage(答案不能為空！ ) else if ZJ_ComboBox1.Text= then showmessage(所在章節(jié)不能為空！ ) else if TM_Edit1.Text= then showmessage(題目不能為空 ！ ) else if NY_ComboBox1.Text= then showmessage(難易度不能為空！ ) 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： else if XXA_Edit.Text= then showmessage(答案 A 不能為空 ) else if XXB_Edit.Text= then showmessage(答案 B 不能為空 ) else if XXC_Edit.Text= then showmessage(答案 C 不能為空 ) else if XXD_Edit.Text= then showmessage(答案 D 不能為空 ) else begin ADOQuery1.Edit； temp:=TX_ComboBox1.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeID from TiXingFen where TypeName=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesTypeID； ADOQuery1.Fields.FieldByName(TypeID).AsInteger:=temp1； ADOQuery1.Fields.FieldByName(TM).AsString:=TM_Edit1.Text； ADOQuery1.Fields.FieldByName(A).AsString:=XXA_Edit.Text； ADOQuery1.Fields.FieldByName(B).AsString:=XXB_Edit.Text； ADOQuery1.Fields.FieldByName(C).AsString:=XXC_Edit.Text； ADOQuery1.Fields.FieldByName(D).AsString:=XXD_Edit.Text； ADOQuery1.Fields.FieldByName(DA).AsString:=DA_ComboBox.Text； ADOQuery1.Fields.FieldByName(CZ).AsString:=ZJ_ComboBox1.Text； temp:=NY_ComboBox1.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select BH from NanYiDj where NYD=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesBH； ADOQuery1.Fields.FieldByName(NY).AsInteger:=temp1； if not XZ_Radiobutton2.Checked then ADOQuery1.Post； showmessage(更新成功 )； end； end； procedure TfrmTKWH.XZtj_BitBtnClick(Sender: TObject)； begin if XZ_Radiobutton2.Checked then ADOQuery1.UpdateBatch()； showmessage(提交完成！ )； end； procedure TfrmTKWH.XZcx_BitBtnClick(Sender: TObject)； begin if XZ_Radiobutton2.Checked then 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery1.CancelBatch()； end； procedure TfrmTKWH.TKgx_BitBtnClick(Sender: TObject)； var temp:string； temp1:integer； begin if TX_ComboBox2.Text= then showmessage(題型不能為空！ ) else if K_ComboBox.Text= then showmessage(空數(shù)不能為空！ ) else if ZJ_ComboBox2.Text= then showmessage(所在章節(jié)不能為空！ ) else if TM_Edit2.Text= then showmessage(題目不能為空！ ) else if NY_ComboBox2.Text= then showmessage(難易度不能為空！ ) else begin ADOQuery1.Edit； temp:=TX_ComboBox2.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeID from TiXingFen where TypeName=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesTypeID； ADOQuery1.Fields.FieldByName(TypeID).AsInteger:=temp1； ADOQuery1.Fields.FieldByName(TM).AsString:=TM_Edit2.Text； ADOQuery1.Fields.FieldByName(K1).AsString:=K_Edit1.Text； ADOQuery1.Fields.FieldByName(K2).AsString:=K_Edit2.Text； ADOQuery1.Fields.FieldByName(K3).AsString:=K_Edit3.Text； ADOQuery1.Fields.FieldByName(K4).AsString:=K_Edit4.Text； ADOQuery1.Fields.FieldByName(K5).AsString:=K_Edit5.Text； ADOQuery1.Fields.FieldByName(YTS).AsInteger:=StrToInt(K_ComboBox.Text)； ADOQuery1.Fields.FieldByName(CZ).AsString:=ZJ_ComboBox2.Text； temp:=NY_ComboBox2.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select BH from NanYiDj where NYD=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesBH； ADOQuery1.Fields.FieldByName(NY).AsInteger:=temp1； if not TK_Radiobutton2.Checked then ADOQuery1.Post； showmessage(更新成功 )； end； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TfrmTKWH.TKtj_BitBtnClick(Sender: TObject)； begin if TK_Radiobutton2.Checked then ADOQuery1.UpdateBatch()； showmessage(提交完成！ )； end； procedure TfrmTKWH.TKcx_BitBtnClick(Sender: TObject)； begin if TK_Radiobutton2.Checked then ADOQuery1.CancelBatch()； end； procedure TfrmTKWH.JDgx_BitBtnClick(Sender: TObject)； var temp:string； temp1:integer； begin if TX_ComboBox3.Text= then showmessage(題型不能為空！ ) else if DA_Memo1.Text= then showmessage(答案不能為空！ ) else if ZJ_ComboBox3.Text= then showmessage(所在章節(jié)不能為空！ ) else if TM_Memo1.Text= then showmessage(題目不能為空！ ) else if NY_ComboBox3.Text= then showmessage(難易度不能為空！ ) else begin ADOQuery1.Edit； temp:=TX_ComboBox3.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeID from TiXingFen where TypeName=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesTypeID； ADOQuery1.Fields.FieldByName(TypeID).AsInteger:=temp1； ADOQuery1.Fields.FieldByName(TM).AsString:=TM_Memo1.Text； ADOQuery1.Fields.FieldByName(DA).AsString:=DA_Memo1.Text； ADOQuery1.Fields.FieldByName(CZ).AsString:=ZJ_ComboBox3.Text； temp:=NY_ComboBox3.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select BH from NanYiDj where NYD=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesBH； ADOQuery1.Fields.FieldByName(NY).AsInteger:=temp1； if not JD_Radiobutton2.Checked then 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery1.Post； showmessage(更新成功 )； end； end； procedure TfrmTKWH.JDtj_BitBtnClick(Sender: TObject)； begin if JD_Radiobutton2.Checked then ADOQuery1.UpdateBatch()； showmessage(提交完成！ )； end； procedure TfrmTKWH.JDcx_BitBtnClick(Sender: TObject)； begin if JD_Radiobutton2.Checked then ADOQuery1.CancelBatch()； end； procedure TfrmTKWH.CXSJgx_BitBtnClick(Sender: TObject)； var temp:string； temp1:integer； begin if TX_ComboBox4.Text= then showmessage(題型不能為空！ ) else if DA_Memo2.Text= then showmessage(答案不能為空！ ) else if ZJ_ComboBox4.Text= then showmessage(所在章節(jié)不能為空！ ) else if TM_Memo2.Text= then showmessage(題目不能為空！ ) else if NY_ComboBox4.Text= then showmessage(難易度不能為空！ ) else begin ADOQuery1.Edit； temp:=TX_ComboBox4.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select TypeID from TiXingFen where TypeName=:temp)； ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesTypeID； ADOQuery1.Fields.FieldByName(TypeID).AsInteger:=temp1； ADOQuery1.Fields.FieldByName(TM).AsString:=TM_Memo2.Text； ADOQuery1.Fields.FieldByName(DA).AsString:=DA_Memo2.Text； ADOQuery1.Fields.FieldByName(CZ).AsString:=ZJ_ComboBox4.Text； temp:=NY_ComboBox4.Text； ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(Select BH from NanYiDj where NYD=:temp)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： ADOQuery2.Parameters.ParamByName(temp).Value:=temp； ADOQuery2.Open； temp1:=ADOQuery2.FieldValuesBH； ADOQuery1.Fields.FieldByName(NY).AsInteger:=temp1； if not CXSJ_Radiobutton2.Checked then ADOQuery1.Post； showmessage(更新成功 )； end； end； procedure TfrmTKWH.CXSJtj_BitBtnClick(Sender: TObject)； begin if CXSJ_Radiobutton2.Checked then ADOQuery1.UpdateBatch； showmessage(提交完成！ )； end； procedure TfrmTKWH.CXSJcx_BitBtnClick(Sender: TObject)； begin if CXSJ_Radiobutton2.Checked then ADOQuery1.CancelBatch()； end； procedure TfrmTKWH.XZcxun_BitBtnClick(Sender: TObject)； var temp:string； begin temp:=ZJ_ComboBox1.Text； ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TXuanZe where CZ=:temp)； ADOQuery1.Parameters.ParamByName(temp).Value:=temp； ADOQuery1.Open； end； procedure TfrmTKWH.TKcxun_BitBtnClick(Sender: TObject)； var temp:string； begin temp:=ZJ_ComboBox2.Text； ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TTianKong where CZ=:temp)； ADOQuery1.Parameters.ParamByName(temp).Value:=temp； ADOQuery1.Open； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； procedure TfrmTKWH.JDcxun_BitBtnClick(Sender: TObject)； var temp:string； begin temp:=ZJ_ComboBox3.Text； ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TJianDa where CZ=:temp)； ADOQuery1.Parameters.ParamByName(temp).Value:=temp； ADOQuery1.Open； end； procedure TfrmTKWH.CXSJcxun_BitBtnClick(Sender: TObject)； var temp:string； begin temp:=ZJ_ComboBox4.Text； ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(Select * from TChengxu where CZ=:temp)； ADOQuery1.Parameters.ParamByName(temp).Value:=temp； ADOQuery1.Open； end； procedure TfrmTKWH.XZsc_BitBtnClick(Sender: TObject)； var Flag:integer； begin Flag:=messagebox(handle, 你 確 定 要 刪 除 此 條 記 錄 嗎 ？ , 刪除 ,MB_YESNO or MB_ICONINFORMATION)； if Flag=idno then exit； ADOQuery1.Delete； end； procedure TfrmTKWH.TKsc_BitBtnClick(Sender: TObject)； var Flag:integer； begin Flag:=messagebox(handle, 你 確 定 要 刪 除 此 條 記 錄 嗎 ？ , 刪除 ,MB_YESNO or MB_ICONINFORMATION)； if Flag=idno then exit； ADOQuery1.Delete； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TfrmTKWH.JDsc_BitBtnClick(Sender: TObject)； var Flag:integer； begin Flag:=messagebox(handle, 你 確 定 要 刪 除 此 條 記 錄 嗎 ？ , 刪除 ,MB_YESNO or MB_ICONINFORMATION)； if Flag=idno then exit； ADOQuery1.Delete； end； procedure TfrmTKWH.CXSJsc_BitBtnClick(Sender: TObject)； var Flag:integer； begin Flag:=messagebox(handle, 你 確 定 要 刪 除 此 條 記 錄 嗎 ？ , 刪除 ,MB_YESNO or MB_ICONINFORMATION)； if Flag=idno then exit； ADOQuery1.Delete； end； procedure TfrmTKWH.CXSJ_DBGridDrawColumnCell(Sender: TObject； const Rect: TRect； DataCol: Integer； Column: TColumn； State: TGridDrawState)； begin if (Column.Field.DataType=ftMemo) then begin CXSJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString)； end else CXSJ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State)； end； procedure TfrmTKWH.JD_DBGridDrawColumnCell(Sender: TObject； const Rect: TRect； DataCol: Integer； Column: TColumn； State: TGridDrawState)； begin if (Column.Field.DataType=ftMemo) then begin JD_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString)； end else JD_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State)； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure TfrmTKWH.TK_DBGridDrawColumnCell(Sender: TObject； const Rect: TRect； DataCol: Integer； Column: TColumn； State: TGridDrawState)； begin if (Column.Field.DataType=ftMemo) then begin TK_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString)； end else TK_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State)； end； procedure TfrmTKWH.XZ_DBGridDrawColumnCell(Sender: TObject； const Rect: TRect； DataCol: Integer； Column: TColumn； State: TGridDrawState)； begin if (Column.Field.DataType=ftMemo) then begin XZ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString)； end else XZ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State)； end； procedure TfrmTKWH.ZJ_DBGridDrawColumnCell(Sender: TObject； const Rect: TRect； DataCol: Integer； Column: TColumn； State: TGridDrawState)； begin if (Column.Field.DataType=ftMemo) then begin ZJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString)； end else ZJ_DBGrid.Def