unit3.~pas

我为某旅游局开发 的评委评估系统

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, ToolWin, ImgList, DB, ADODB, Grids,
  DBGrids, jpeg, ExtCtrls, Buttons, QuickRpt, QRCtrls, TeEngine, TeeFunci,
  Series, TeeProcs, Chart, DbChart, DBCtrls, BubbleCh,IdTrivialFTPBase,DateUtils,inifiles;

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ToolBar1: TToolBar;
    ToolButtonImage: TToolButton;
    ToolButtonListen: TToolButton;
    ToolButtonMemoryInformation: TToolButton;
    TreeView1: TTreeView;
    PageControl1: TPageControl;
    TabSheet0: TTabSheet;
    TabSheet111: TTabSheet;
    TabSheet112: TTabSheet;
    TabSheet441: TTabSheet;
    TabSheet113: TTabSheet;
    TabSheet114: TTabSheet;
    N51: TMenuItem;
    N52: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ImageList1: TImageList;
    Image1: TImage;
    Label1: TLabel;
    Edit_referee_ID: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit_referee_name: TEdit;
    Edit_referee_in_group: TEdit;
    GroupBox1: TGroupBox;
    ComboBox_referee_sex: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit_referee_hobby: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Edit_referee_city: TEdit;
    Edit_referee_unit_referee: TEdit;
    BitBtn111save: TBitBtn;
    GroupBox2: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label34: TLabel;
    Edit_candidate_ID: TEdit;
    Edit_candidate_name: TEdit;
    Edit_candidate_hobby: TEdit;
    ComboBox_candidate_sex: TComboBox;
    Edit_candidate_city: TEdit;
    Edit_candidate_unit_candidate: TEdit;
    BitBtn112Save: TBitBtn;
    Label35: TLabel;
    GroupBox4: TGroupBox;
    BitBtn441Update: TBitBtn;
    BitBtn441delete: TBitBtn;
    BitBtn441Insert: TBitBtn;
    DBGridGLYH: TDBGrid;
    N34: TMenuItem;
    N35: TMenuItem;
    Label36: TLabel;
    Label37: TLabel;
    TabSheet115: TTabSheet;
    TabSheet221: TTabSheet;
    TabSheet331: TTabSheet;
    TabSheet222: TTabSheet;
    TabSheet335: TTabSheet;
    TabSheet334: TTabSheet;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    GroupBox3: TGroupBox;
    Label55: TLabel;
    Edit_ID_group: TEdit;
    Label56: TLabel;
    Edit_name_group: TEdit;
    Label57: TLabel;
    Label58: TLabel;
    Edit_number_group: TEdit;
    GroupBox5: TGroupBox;
    Label61: TLabel;
    Edit_Compete_name: TEdit;
    Label62: TLabel;
    Label64: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Edit_referee_mark: TEdit;
    Label68: TLabel;
    Edit_ID_criterion: TEdit;
    Label69: TLabel;
    Label70: TLabel;
    Edit_kind: TEdit;
    Label71: TLabel;
    Edit_subkind: TEdit;
    Label72: TLabel;
    GroupBox7: TGroupBox;
    BitBtn114Save: TBitBtn;
    Edit_kind_mark: TEdit;
    Label73: TLabel;
    Edit_subkind_mark: TEdit;
    BitBtn115Save: TBitBtn;
    GroupBox8: TGroupBox;
    DBGridPWSelect: TDBGrid;
    GroupBox9: TGroupBox;
    DBGridPWTJSelect: TDBGrid;
    GroupBox10: TGroupBox;
    DBGridXSSelect: TDBGrid;
    GroupBox12: TGroupBox;
    DBGridErrorAnalysis: TDBGrid;
    Label77: TLabel;
    Edit335Content: TEdit;
    BitBtn335Select: TBitBtn;
    BitBtn335Delete: TBitBtn;
    GroupBox13: TGroupBox;
    DBGrid7: TDBGrid;
    BitBtn335Selectall: TBitBtn;
    Label80: TLabel;
    Label81: TLabel;
    BitBtn1222Select: TBitBtn;
    BitBtn1222delete: TBitBtn;
    BitBtn222Selectall: TBitBtn;
    Label82: TLabel;
    BitBtn331Select: TBitBtn;
    BitBtn331Selectall: TBitBtn;
    Label83: TLabel;
    Label84: TLabel;
    BitBtn221select: TBitBtn;
    BitBtn221selectall: TBitBtn;
    BitBtn221delete: TBitBtn;
    ToolButtonAutoRun: TToolButton;
    BitBtn221print: TBitBtn;
    ADOConnection2: TADOConnection;
    BitBtn331Print: TBitBtn;
    BitBtn222print: TBitBtn;
    BitBtn335Print: TBitBtn;
    N31: TMenuItem;
    BitBtn36: TBitBtn;
    BitBtn331Chart: TBitBtn;
    TabSheet333: TTabSheet;
    N33: TMenuItem;
    Label50: TLabel;
    GroupBox15: TGroupBox;
    DBGridPWZTJ: TDBGrid;
    BitBtn333Statistical: TBitBtn;
    BitBtn333Print: TBitBtn;
    TabSheet331A: TTabSheet;
    Label47: TLabel;
    GroupBox14: TGroupBox;
    BitBtn331APrint: TBitBtn;
    ComboBox_referee_education_degree: TComboBox;
    ComboBox_referee_specialty: TComboBox;
    ComboBox_referee_blood_type: TComboBox;
    ComboBox_referee_function_level: TComboBox;
    ComboBox_referee_province: TComboBox;
    ComboBox_referee_politics_face: TComboBox;
    ComboBox_referee_age: TComboBox;
    ToolButtonTimeToClose: TToolButton;
    ComboBox_candidate_age: TComboBox;
    ComboBox_candidate_education_degree: TComboBox;
    ComboBox_candidate_specialty: TComboBox;
    ComboBox_candidate_blood_type: TComboBox;
    ComboBox_candidate_function_level: TComboBox;
    ComboBox_candidate_province: TComboBox;
    ComboBox_candidate_politics_face: TComboBox;
    BitBtn113Save: TBitBtn;
    GroupBox16: TGroupBox;
    GroupBox17: TGroupBox;
    GroupBox18: TGroupBox;
    GroupBox19: TGroupBox;
    BitBtn111clear: TBitBtn;
    BitBtn112Clear: TBitBtn;
    TabSheet442: TTabSheet;
    Label53: TLabel;
    DBGridGLJS: TDBGrid;
    GroupBox24: TGroupBox;
    BitBtn442Update: TBitBtn;
    N24: TMenuItem;
    N23: TMenuItem;
    ComboBox222: TComboBox;
    Label54: TLabel;
    ComboBox21: TComboBox;
    Label78: TLabel;
    Edit5: TEdit;
    BitBtn13: TBitBtn;
    ComboBox221: TComboBox;
    BitBtn115Clear: TBitBtn;
    BitBtn114Clear: TBitBtn;
    BitBtn113Clear: TBitBtn;
    TabSheet223: TTabSheet;
    Label91: TLabel;
    GroupBox28: TGroupBox;
    GroupBox29: TGroupBox;
    GroupBox21: TGroupBox;
    ComboBox331Condition: TComboBox;
    Label51: TLabel;
    Label97: TLabel;
    Edit_Chart_refereeId: TEdit;
    Label98: TLabel;
    Edit_Chart_refereeName: TEdit;
    Label99: TLabel;
    Edit_Chart_level: TEdit;
    TabSheet224: TTabSheet;
    Label76: TLabel;
    Label100: TLabel;
    GroupBox30: TGroupBox;
    GroupBox31: TGroupBox;
    DBGridPWZSelect: TDBGrid;
    Label101: TLabel;
    Label102: TLabel;
    ComboBox223condition: TComboBox;
    BitBtn223Select: TBitBtn;
    BitBtn223Selectall: TBitBtn;
    BitBtn223delete: TBitBtn;
    BitBtn223print: TBitBtn;
    DBGridBZSelect: TDBGrid;
    BitBtn224delete: TBitBtn;
    BitBtn224Selectall: TBitBtn;
    BitBtn224Print: TBitBtn;
    BitBtn221update: TBitBtn;
    GroupBox32: TGroupBox;
    GroupBox33: TGroupBox;
    GroupBox34: TGroupBox;
    BitBtn224Update: TBitBtn;
    GroupBox35: TGroupBox;
    BitBtn222update: TBitBtn;
    GroupBox37: TGroupBox;
    GroupBox38: TGroupBox;
    GroupBox39: TGroupBox;
    BitBtn223Update: TBitBtn;
    ControlBar1: TControlBar;
    GroupBox40: TGroupBox;
    BitBtn63: TBitBtn;
    ComboBox335Condition: TComboBox;
    Label59: TLabel;
    Label105: TLabel;
    ComboBox333condition: TComboBox;
    Label106: TLabel;
    BitBtn333select: TBitBtn;
    BitBtn333Selectall: TBitBtn;
    BitBtn335Change: TBitBtn;
    BitBtn70: TBitBtn;
    BitBtn71: TBitBtn;
    BitBtn441select: TBitBtn;
    BitBtn442Selectall: TBitBtn;
    Edit_referee_career: TEdit;
    StatusBar1: TStatusBar;
    Edit_candidate_career: TEdit;
    ADOQueryPWInsert: TADOQuery;
    ADOQueryPWSelect: TADOQuery;
    DataSourcePWSelect: TDataSource;
    Timer2: TTimer;
    ADOQueryXSInsert: TADOQuery;
    ADOQueryXSSelect: TADOQuery;
    DataSourceXSSelect: TDataSource;
    ADOQueryPWPFChartInsert: TADOQuery;
    ADOQueryPWZInsert: TADOQuery;
    ADOQueryPWZSelect: TADOQuery;
    DataSourcePWZSelect: TDataSource;
    ImageCaution: TImage;
    Label18: TLabel;
    GroupBoxkind: TGroupBox;
    Label52: TLabel;
    Memo_kind_content: TMemo;
    GroupBoxSubkind: TGroupBox;
    Memo_Subkind_content: TMemo;
    ADOQueryBZInsert: TADOQuery;
    ADOQueryBZSelect: TADOQuery;
    DataSourceBZSelect: TDataSource;
    ADOQueryPWTJSelect: TADOQuery;
    DataSourcePWTJSelect: TDataSource;
    Label65: TLabel;
    Label112: TLabel;
    Edit_MastReferee_name: TEdit;
    BitBtn115Detail: TBitBtn;
    Label60: TLabel;
    Edit_group: TEdit;
    TabSheet116: TTabSheet;
    GroupBox41: TGroupBox;
    Label113: TLabel;
    Label114: TLabel;
    Label115: TLabel;
    Label116: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    Label119: TLabel;
    Edit_mark_fact: TEdit;
    Edit_mark_min: TEdit;
    Edit_Mark_TimeOverflow: TEdit;
    Edit_mark_max: TEdit;
    Label120: TLabel;
    GroupBox42: TGroupBox;
    BitBtn116Save: TBitBtn;
    BitBtn116Clear: TBitBtn;
    Label63: TLabel;
    Edit_memo: TEdit;
    ComboBox_XS_SC: TComboBox;
    ADOQueryPWPFInsert: TADOQuery;
    ADOQueryXSDFInsert: TADOQuery;
    ComboBox_Compete_Stage: TComboBox;
    N16: TMenuItem;
    ADOQueryPWXMSelect: TADOQuery;
    ComboBox_refereeName: TComboBox;
    ComboBox_CandidateName: TComboBox;
    ComboBox_candidateId: TComboBox;
    ADOQueryXSXMBHSelect: TADOQuery;
    ComboBox_CandidateId2: TComboBox;
    ComboBox_Candidatename2: TComboBox;
    TabSheet225: TTabSheet;
    TabSheet226: TTabSheet;
    Label48: TLabel;
    GroupBox43: TGroupBox;
    Label49: TLabel;
    Label121: TLabel;
    ComboBox225condition: TComboBox;
    BitBtn225print: TBitBtn;
    BitBtn225Selectall: TBitBtn;
    BitBtn225delete: TBitBtn;
    BitBtn225Select: TBitBtn;
    BitBtn225Update: TBitBtn;
    GroupBox44: TGroupBox;
    DBGridPWPFSelect: TDBGrid;
    Label122: TLabel;
    GroupBox45: TGroupBox;
    Label123: TLabel;
    Label124: TLabel;