📄 unit3.~pas
字号:
ComboBox226condition: TComboBox;
BitBtn1226print: TBitBtn;
BitBtn226Selectall: TBitBtn;
BitBtn226delete: TBitBtn;
BitBtn226Select: TBitBtn;
BitBtn226Update: TBitBtn;
GroupBox46: TGroupBox;
DBGridXSDFSelect: TDBGrid;
N25: TMenuItem;
N26: TMenuItem;
ADOQueryPWPFSelect: TADOQuery;
ADOQueryXSDFSelect: TADOQuery;
DataSourcePWPFSelect: TDataSource;
DataSourceXSDFSelect: TDataSource;
BitBtn331Create: TBitBtn;
ADOQueryPWTJCreate: TADOQuery;
ComboBox331Content: TComboBox;
Label125: TLabel;
ComboBox_refereeId: TComboBox;
TabSheet336: TTabSheet;
Label126: TLabel;
GroupBox47: TGroupBox;
Label127: TLabel;
LabelPWSPTJContent: TLabel;
ComboBox336Condition: TComboBox;
BitBtn336Chart: TBitBtn;
BitBtn336Print: TBitBtn;
BitBtn336Selectall: TBitBtn;
BitBtn336Select: TBitBtn;
ComboBox336Content: TComboBox;
GroupBox48: TGroupBox;
DBGridPWSPTJ: TDBGrid;
N36: TMenuItem;
DBChart1: TDBChart;
Series1: TLineSeries;
ADOQueryPWPFChartSelect: TADOQuery;
Label129: TLabel;
Edit_Chart_deviation: TEdit;
TabSheet117: TTabSheet;
Label130: TLabel;
GroupBox49: TGroupBox;
Label117you: TLabel;
Label117liang: TLabel;
Label117zhong: TLabel;
Label117hege: TLabel;
Edit_verygood: TEdit;
Edit_good: TEdit;
Edit_pass: TEdit;
Edit_ordinary: TEdit;
GroupBox50: TGroupBox;
BitBtn117Save: TBitBtn;
BitBtn117Clear: TBitBtn;
N17: TMenuItem;
Image2: TImage;
ADOQueryPWSPBZInsert: TADOQuery;
ADOQueryPWSPTJ: TADOQuery;
DataSourcePWSPTJ: TDataSource;
MemoPWSPTJ: TMemo;
ADOQueryPWSPTJAssistant: TADOQuery;
TabSheet336A: TTabSheet;
Label128: TLabel;
GroupBox51: TGroupBox;
DBChartPWSP: TDBChart;
ADOQueryPWSPChartInsert: TADOQuery;
ADOQueryPWSPChartSelect: TADOQuery;
Series2: TPieSeries;
DBChartPWSP2: TDBChart;
Series3: TBarSeries;
ADOQueryGLYH: TADOQuery;
DataSourceGLYH: TDataSource;
Label79: TLabel;
Label85: TLabel;
Label86: TLabel;
Label87: TLabel;
Edit_userID: TEdit;
Edit_password: TEdit;
ComboBox_role: TComboBox;
Edit_identify: TEdit;
ADOQueryGLJS: TADOQuery;
DataSourceGLJS: TDataSource;
BitBtn442delete: TBitBtn;
GroupBox20: TGroupBox;
Label88: TLabel;
Edit_role: TEdit;
CheckBox_baseinfo: TCheckBox;
CheckBox_mark: TCheckBox;
CheckBox_statistical: TCheckBox;
CheckBox_chart: TCheckBox;
Label89: TLabel;
BitBtn442Clear: TBitBtn;
BitBtn442Save: TBitBtn;
ComboBox_masterrefereeId: TComboBox;
Label90: TLabel;
ComboBox_masterrefereename: TComboBox;
ComboBox225content: TComboBox;
ComboBox226content: TComboBox;
ComboBox333content: TComboBox;
Label92: TLabel;
ComboBox117: TComboBox;
Label93: TLabel;
ADOQueryPWZTJSelect: TADOQuery;
DataSourcePWZTJSelect: TDataSource;
BitBtnPWZTJChart: TBitBtn;
ADOQueryPWZTJCreate: TADOQuery;
TabSheet333A: TTabSheet;
Label44: TLabel;
GroupBox333A: TGroupBox;
DBChartPWZ: TDBChart;
Series4: TBubbleSeries;
ADOQueryPWZTJChart: TADOQuery;
BitBtn441Clear: TBitBtn;
BitBtn336Aprint: TBitBtn;
BitBtn336APrint2: TBitBtn;
BitBtn333APrint: TBitBtn;
ImageListToolBar: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Image3: TImage;
Label42: TLabel;
Image4: TImage;
Label43: TLabel;
Image5: TImage;
Label74: TLabel;
Label75: TLabel;
ComboBox_order: TComboBox;
Label94: TLabel;
LabelPWJB: TLabel;
Label95: TLabel;
Label96: TLabel;
LabelXSJB: TLabel;
Label104: TLabel;
Label103: TLabel;
LabelPWZ: TLabel;
Label107: TLabel;
Label108: TLabel;
LabelBZ: TLabel;
Label110: TLabel;
Label111: TLabel;
LabelPWPF: TLabel;
Label132: TLabel;
Label133: TLabel;
LabelXSDF: TLabel;
Label135: TLabel;
Label136: TLabel;
LabelPWTJ: TLabel;
Label138: TLabel;
Label139: TLabel;
Label140: TLabel;
Label141: TLabel;
Label142: TLabel;
Label143: TLabel;
Label144: TLabel;
Label145: TLabel;
LabelErrorAnalysis: TLabel;
Label147: TLabel;
Label148: TLabel;
LabelPWSPTJ: TLabel;
Label150: TLabel;
Label151: TLabel;
LabelGLYH: TLabel;
Label153: TLabel;
Label154: TLabel;
LabelGLJS: TLabel;
Label156: TLabel;
ComboBox_team: TComboBox;
Label109: TLabel;
BitBtn335Chart: TBitBtn;
TabSheet335A: TTabSheet;
Label131: TLabel;
DBChartOrder: TDBChart;
Series5: TBarSeries;
Series6: TBarSeries;
Series7: TBarSeries;
Series8: TBarSeries;
Series9: TBarSeries;
ADOQueryXSOrderChartSelect: TADOQuery;
CheckBoxJJ: TCheckBox;
CheckBoxXZ: TCheckBox;
CheckBoxSC: TCheckBox;
CheckBoxMS: TCheckBox;
CheckBoxJS: TCheckBox;
GroupBox6: TGroupBox;
ADOQueryErrorAnalysis: TADOQuery;
DataSourceErrorAnalysis: TDataSource;
ComboBox221Content: TComboBox;
ComboBox222Content: TComboBox;
ComboBox223Content: TComboBox;
Label15: TLabel;
Labelfactor: TLabel;
ComboBox117factor: TComboBox;
Imagefactor: TImage;
Labelimagefactor: TLabel;
procedure N6Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure BitBtn336PrintClick(Sender: TObject);
procedure BitBtn331ChartClick(Sender: TObject);
procedure BitBtn336ChartClick(Sender: TObject);
procedure BitBtn221printClick(Sender: TObject);
procedure BitBtn222printClick(Sender: TObject);
procedure BitBtn33Click(Sender: TObject);
procedure BitBtn335PrintClick(Sender: TObject);
procedure BitBtn36Click(Sender: TObject);
procedure BitBtn333PrintClick(Sender: TObject);
procedure BitBtn442UpdateClick(Sender: TObject);
procedure BitBtn442deleteClick(Sender: TObject);
procedure BitBtn441InsertClick(Sender: TObject);
procedure BitBtn441UpdateClick(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure BitBtn111clearClick(Sender: TObject);
procedure BitBtn112ClearClick(Sender: TObject);
procedure BitBtn113ClearClick(Sender: TObject);
procedure BitBtn114ClearClick(Sender: TObject);
procedure BitBtn115ClearClick(Sender: TObject);
procedure BitBtn117ClearClick(Sender: TObject);
procedure BitBtn48Click(Sender: TObject);
procedure BitBtn111saveClick(Sender: TObject);
procedure BitBtn223printClick(Sender: TObject);
procedure BitBtn224PrintClick(Sender: TObject);
procedure BitBtn225PrintClick(Sender: TObject);
procedure BitBtn226PrintClick(Sender: TObject);
procedure ToolButtonAutoRunClick(Sender: TObject);
procedure TreeViewOnClick(Sender: TObject);
procedure N52Click(Sender: TObject);
procedure Form3Create(Sender: TObject);
procedure BitBtn221selectallClick(Sender: TObject);
procedure BitBtn221updateClick(Sender: TObject);
procedure ShowTime(Sender: TObject);
procedure BitBtn112SaveClick(Sender: TObject);
procedure BitBtn222SelectallClick(Sender: TObject);
procedure BitBtn222updateClick(Sender: TObject);
procedure BitBtn113SaveClick(Sender: TObject);
procedure BitBtn223SelectallClick(Sender: TObject);
procedure BitBtn223UpdateClick(Sender: TObject);
procedure BitBtn114SaveClick(Sender: TObject);
procedure BitBtn224SelectallClick(Sender: TObject);
procedure BitBtn225SelectallClick(Sender: TObject);
procedure BitBtn226SelectallClick(Sender: TObject);
procedure BitBtn224UpdateClick(Sender: TObject);
procedure BitBtn225UpdateClick(Sender: TObject);
procedure BitBtn226UpdateClick(Sender: TObject);
procedure BitBtn331SelectallClick(Sender: TObject);
procedure BitBtn336SelectallClick(Sender: TObject);
procedure BitBtn221selectClick(Sender: TObject);
procedure BitBtn115SaveClick(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure BitBtn116SaveClick(Sender: TObject);
procedure BitBtn117SaveClick(Sender: TObject);
procedure Combobox_Candidatename2Change(Sender: TObject);
procedure ComboBox_CandidateId2Change(Sender: TObject);
procedure ComboBox_candidateIdChange(Sender: TObject);
procedure ComboBox_CandidateNameChange(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure BitBtn331CreateClick(Sender: TObject);
procedure ComboBox331ConditionChange(Sender: TObject);
procedure ComboBox336ConditionChange(Sender: TObject);
procedure BitBtn331SelectClick(Sender: TObject);
procedure BitBtn336SelectClick(Sender: TObject);
procedure ComboBox_refereeIdChange(Sender: TObject);
procedure ComboBox_refereeNameChange(Sender: TObject);
procedure BitBtn441selectClick(Sender: TObject);
procedure BitBtn441deleteClick(Sender: TObject);
procedure Button441ClearClick(Sender: TObject);
procedure BitBtn442SelectallClick(Sender: TObject);
procedure BitBtn442SaveClick(Sender: TObject);
procedure BitBtn442ClearClick(Sender: TObject);
procedure BitBtn221deleteClick(Sender: TObject);
procedure BitBtn1222SelectClick(Sender: TObject);
procedure BitBtn1222deleteClick(Sender: TObject);
procedure ComboBox_masterrefereeIdChange(Sender: TObject);
procedure ComboBox_masterrefereeNameChange(Sender: TObject);
procedure BitBtn223SelectClick(Sender: TObject);
procedure BitBtn223deleteClick(Sender: TObject);
procedure BitBtn224deleteClick(Sender: TObject);
procedure ComboBox225conditionChange(Sender: TObject);
procedure BitBtn225SelectClick(Sender: TObject);
procedure BitBtn225deleteClick(Sender: TObject);
procedure ComboBox226conditionChange(Sender: TObject);
procedure BitBtn226SelectClick(Sender: TObject);
procedure BitBtn226deleteClick(Sender: TObject);
procedure ComboBox117Change(Sender: TObject);
procedure BitBtn333SelectallClick(Sender: TObject);
procedure ComboBox333conditionChange(Sender: TObject);
procedure BitBtn333selectClick(Sender: TObject);
procedure BitBtn333StatisticalClick(Sender: TObject);
procedure BitBtnPWZTJChartClick(Sender: TObject);
procedure BitBtn441ClearClick(Sender: TObject);
procedure BitBtn331APrintClick(Sender: TObject);
procedure BitBtn331PrintClick(Sender: TObject);
procedure BitBtn336AprintClick(Sender: TObject);
procedure BitBtn336APrint2Click(Sender: TObject);
procedure BitBtn333APrintClick(Sender: TObject);
procedure ToolButtonMemoryInformationClick(Sender: TObject);
procedure ToolButtonImageClick(Sender: TObject);
procedure TabSheet113_OnShow(Sender: TObject);
procedure ToolButtonListenClick(Sender: TObject);
procedure ToolButtonTimeToCloseClick(Sender: TObject);
procedure BitBtn335ChartClick(Sender: TObject);
procedure OnMouseUpCheckBoxJJ(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnMouseUpCheckBoxXZ(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnMouseUpCheckBoxSC(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnMouseUpCheckBoxMS(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnMouseUpCheckBoxJS(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn335SelectallClick(Sender: TObject);
procedure BitBtn335ChangeClick(Sender: TObject);
procedure BitBtn335DeleteClick(Sender: TObject);
procedure BitBtn335SelectClick(Sender: TObject);
procedure BeforeConnectADO2(Sender: TObject);
procedure OnChangeCombobox221(Sender: TObject);
procedure OnChangeCombobox222(Sender: TObject);
procedure OnChangeCombobox223condition(Sender: TObject);
private
IfMemo: boolean;
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; //用于监控USB等外设的函数
function CopyDirAll(sDirName:String;sToDirName:String):Boolean;//配合用于监控USB等外设的函数，文件拷贝函数
{ Private declarations }
public
procedure ShowHint(Sender: Tobject);//处理状态栏
end;
const
DBT_DEVICEARRIVAL = $8000; ////用于监控USB等外设的常量 system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
DBT_DEVTYP_VOLUME = $00000002; // logical volume
DBTF_MEDIA = $0001; // media comings and goings
szAppName : PChar = 'myDesktop';//用于生成新的桌面功能
type
PDEV_BROADCAST_HDR = ^TDEV_BROADCAST_HDR;
TDEV_BROADCAST_HDR = packed record
dbch_size : DWORD;
dbch_devicetype : DWORD;
dbch_reserved : DWORD;
end;
PDEV_BROADCAST_VOLUME = ^TDEV_BROADCAST_VOLUME;
TDEV_BROADCAST_VOLUME = packed record
dbcv_size : DWORD;
dbcv_devicetype : DWORD;
dbcv_reserved : DWORD;
dbcv_unitmask : DWORD;
dbcv_flags : WORD;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -