⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit3.pas

📁 我为某旅游局开发 的评委评估系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
end;

procedure TForm3.BitBtn442deleteClick(Sender: TObject);
var
 usertype,str: string;
begin
  usertype:= ADOQueryGLJS.FieldByName('type').AsString;
  str:='delete from role where type='+ quotedstr(usertype);
  ADOQueryGLJS.SQL.Clear;
  ADOQueryGLJS.SQL.Add(str);
  ADOQueryGLJS.ExecSQL ;
  str := 'select * from role';
  ADOQueryGLJS.SQL.Clear;
  ADOQueryGLJS.SQL.Add(str);
  ADOQueryGLJS.Open;
end;

procedure TForm3.BitBtn111clearClick(Sender: TObject);
begin
  Form3.Edit_referee_ID.Text:='';
  Form3.Edit_referee_name.Text:='';
  Form3.ComboBox_referee_sex.Text:='';
  Form3.ComboBox_referee_age.Text:='';
  Form3.ComboBox_referee_blood_type.Text:='';
  Form3.ComboBox_referee_education_degree.Text:='';
  Form3.ComboBox_referee_specialty.Text:='';
  Form3.ComboBox_referee_function_level.Text:='';
  Form3.ComboBox_referee_politics_face.Text:='';
  Form3.ComboBox_referee_province.Text:='';
  Form3.Edit_referee_city.Text:='';
  Form3.Edit_referee_unit_referee.Text:='';
  Form3.Edit_referee_in_group.Text:='';
  Form3.Edit_referee_hobby.Text:='';
  Form3.Edit_referee_career.Text:='';

end;

procedure TForm3.BitBtn112ClearClick(Sender: TObject);
begin
  Form3.Edit_candidate_ID.Text:='';
  Form3.ComboBox_candidate_sex.Text:='';
  Form3.ComboBox_candidate_age.Text:='';
  Form3.ComboBox_candidate_blood_type.Text:='';
  Form3.ComboBox_candidate_education_degree.Text:='';
  Form3.ComboBox_candidate_specialty.Text:='';
  Form3.ComboBox_candidate_function_level.Text:='';
  Form3.ComboBox_candidate_politics_face.Text:='';
  Form3.ComboBox_candidate_province.Text:='';
  Form3.Edit_candidate_city.Text:='';
  Form3.Edit_candidate_unit_candidate.Text:='';
  Form3.Edit_candidate_hobby.Text:='';
  Form3.Edit_candidate_career.Text:='';
end;

procedure TForm3.BitBtn113ClearClick(Sender: TObject);
begin
  Form3.Edit_ID_group.Text:='';
  Form3.Edit_name_group.Text:='';
  Form3.Edit_number_group.Text:='';
  Form3.Combobox_masterrefereeID.Text:='';
  Form3.Combobox_masterrefereeName.Text:='';
end;

procedure TForm3.BitBtn117ClearClick(Sender: TObject);
begin
//  Form3.ComboBox117.Text :='';
  Form3.Edit_verygood.Text:='';
  Form3.Edit_good.Text:='';
  Form3.Edit_ordinary.Text:='';
  Form3.Edit_pass.Text:='';
end;

procedure TForm3.BitBtn114ClearClick(Sender: TObject);
begin
  Form3.Edit_ID_criterion.Text:='';
  Form3.Edit_kind.Text:='';
  Form3.Edit_kind_mark.Text:='';
  Form3.Memo_kind_content.Text:='';
  Form3.Edit_subkind.Text:='';
  Form3.Edit_subkind_mark.Text:='';
  Form3.Memo_subkind_content.Text:='';
end;

procedure TForm3.BitBtn115ClearClick(Sender: TObject);
begin
  Form3.Edit_Compete_name.Text:='';
  Form3.ComboBox_Compete_Stage.Text:='';
  Form3.Combobox_candidateId.Text:='';
  Form3.Combobox_CandidateName.Text:='';
  Form3.Edit_group.Text:='';
  Form3.Combobox_refereeId.Text:='';
  Form3.Combobox_refereeName.Text:='';
  Form3.Edit_MastReferee_name.Text:='';
  Form3.Edit_referee_mark.Text:='';

end;

procedure TForm3.BitBtn48Click(Sender: TObject);
begin
//  Form3.Edit12.Text:='';
//  Form3.Edit51.Text:='';
//  Form3.Edit18.Text:='';
//  Form3.Edit19.Text:='';
end;

procedure TForm3.BitBtn111saveClick(Sender: TObject);
var str: string;
label base_info_referee_insert_over;
begin
        try
          str := 'select * from base_info_referee';
          ADOQueryPWInsert.SQL.Clear;
          ADOQueryPWInsert.SQL.Add(str);
          ADOQueryPWInsert.Open;
          while not ADOQueryPWInsert.Eof do
            begin
              if Edit_referee_ID.Text=ADOQueryPWInsert.FieldByName('ID').AsString then
                begin
                  showmessage('该条记录已经存在于数据库中！');
                  ADOQueryPWInsert.Close;
                  goto base_info_referee_insert_over;
                end;
              ADOQueryPWInsert.next;
            end;
          ADOQueryPWInsert.Insert;
          ADOQueryPWInsert.FieldByName('ID').AsString:= Edit_referee_ID.Text;
          ADOQueryPWInsert.FieldByName('name').AsString:= Edit_referee_name.Text;
          ADOQueryPWInsert.FieldByName('sex').AsString:= ComboBox_referee_sex.Text;
          ADOQueryPWInsert.FieldByName('age').AsString:= ComboBox_referee_age.text;
          ADOQueryPWInsert.FieldByName('blood_type').AsString:= ComboBox_referee_blood_type.Text;
          ADOQueryPWInsert.FieldByName('education_degree').AsString:= ComboBox_referee_education_degree.Text;
          ADOQueryPWInsert.FieldByName('specialty').AsString:= ComboBox_referee_specialty.Text;
          ADOQueryPWInsert.FieldByName('function_level').AsString:= ComboBox_referee_function_level.Text;
          ADOQueryPWInsert.FieldByName('politics_face').AsString:= ComboBox_referee_politics_face.Text;
          ADOQueryPWInsert.FieldByName('province').AsString:= ComboBox_referee_province.Text;
          ADOQueryPWInsert.FieldByName('city').AsString:= Edit_referee_city.Text;
          ADOQueryPWInsert.FieldByName('unit_referee').AsString:= Edit_referee_unit_referee.Text;
          ADOQueryPWInsert.FieldByName('in_group').AsString:= Edit_referee_in_group.Text;
          ADOQueryPWInsert.FieldByName('hobby').AsString:= Edit_referee_hobby.Text;
          ADOQueryPWInsert.FieldByName('career').AsString:= Edit_referee_career.Text;
          ADOQueryPWInsert.Post;
          showmessage('该条记录保存成功！');
base_info_referee_insert_over:
        except
          On E:Exception do
          begin
           MessageDlg('录入评委基本信息失败,可能是必要信息录入不全，也可能数据库故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
        end;
end;


procedure TForm3.BitBtn223printClick(Sender: TObject);
begin
    Unit12.QuickReport12.Preview;
end;

procedure TForm3.BitBtn224PrintClick(Sender: TObject);
begin
    unit13.QuickReportBZ.Preview;
end;

procedure TForm3.BitBtn225PrintClick(Sender: TObject);
begin
    Unit15.QuickReportPWPF.Preview;
end;

procedure TForm3.BitBtn226PrintClick(Sender: TObject);
begin
    Unit16.QuickReportXSDF.Preview;
end;

procedure TForm3.ToolButtonAutoRunClick(Sender: TObject);
begin
  UnitAutoRun.FormAutoRun.ShowModal();
end;



procedure TForm3.TreeViewOnClick(Sender: TObject);
begin
   if treeview1.Selected.text='评委基本信息录入' then
   TabSheet111.Show;
   if treeview1.Selected.text='选手基本信息录入' then
   TabSheet112.Show;
   if treeview1.Selected.text='评委组信息录入' then
   TabSheet113.Show;
   if treeview1.Selected.text='评分标准录入' then
   TabSheet114.Show;
   if treeview1.Selected.text='评委评分录入' then
   TabSheet115.Show;
   if treeview1.Selected.text='选手得分录入' then
   TabSheet116.Show;
   if treeview1.Selected.text='评委水平标准录入' then
   TabSheet117.Show;
   if treeview1.Selected.text='评委基本信息查询' then
   TabSheet221.Show;
   if treeview1.Selected.text='选手基本信息查询' then
   TabSheet222.Show;
   if treeview1.Selected.text='评委组信息查询' then
   TabSheet223.Show;
   if treeview1.Selected.text='评分标准查询' then
   TabSheet224.Show;
   if treeview1.Selected.text='评委评分查询' then
   TabSheet225.Show;
   if treeview1.Selected.text='选手得分查询' then
   TabSheet226.Show;
   if treeview1.Selected.text='评委评分统计表' then
   TabSheet331.Show;
//   if treeview1.Selected.text='选手得分统计表' then
//   TabSheet332.Show;
   if treeview1.Selected.text='评委组统计表' then
   TabSheet333.Show;
   if treeview1.Selected.text='分组决策表' then
   TabSheet334.Show;
   if treeview1.Selected.text='评分差异分析表' then
   TabSheet335.Show;
   if treeview1.Selected.text='评委水平统计表' then
   TabSheet336.Show;
   if treeview1.Selected.text='管理用户' then
   TabSheet441.Show;
   if treeview1.Selected.text='管理角色' then
   TabSheet442.Show;
   if treeview1.Selected.text='帮助' then
   begin
    Application.HelpFile :='help.HLP';
    Application.HelpCommand(HELP_CONTENTS,0);
   end;
   if treeview1.Selected.text='关于' then
   Form14.ShowModal();
end;

//-------------------------------------------------------------//
//                         加载生成窗体3                      //
//------------------------------------------------------------//
procedure TForm3.Form3Create(Sender: TObject);
var
 str: string;
begin


  form3.DBGridPWSelect.Columns[0].Width :=78;
  form3.DBGridPWSelect.Columns[1].Width :=60;
  form3.DBGridPWSelect.Columns[2].Width :=90;
  form3.DBGridPWSelect.Columns[3].Width :=58;
  form3.DBGridPWSelect.Columns[4].Width :=58;
  form3.DBGridPWSelect.Columns[5].Width :=80;
  form3.DBGridPWSelect.Columns[6].Width :=80;
  form3.DBGridPWSelect.Columns[7].Width :=58;
  form3.DBGridPWSelect.Columns[8].Width :=58;
  form3.DBGridPWSelect.Columns[9].Width :=58;
  form3.DBGridPWSelect.Columns[10].Width :=80;
  form3.DBGridPWSelect.Columns[11].Width :=70;
  form3.DBGridPWSelect.Columns[12].Width :=70;
  form3.DBGridPWSelect.Columns[13].Width :=58;
  form3.DBGridPWSelect.Columns[14].Width :=80;
  form3.DBGridPWSelect.Columns[15].Width :=58;

  str := 'select Id,name from base_info_referee';
  ADOQueryPWXMSelect.SQL.Clear;
  ADOQueryPWXMSelect.SQL.Add(str);
  ADOQueryPWXMSelect.Open;
  while not ADOQueryPWXMSelect.Eof do
    begin
      ComboBox_RefereeId.Items.Add(ADOQueryPWXMSelect.FieldByName('ID').AsString);
      ComboBox_RefereeName.Items.Add(ADOQueryPWXMSelect.FieldByName('name').AsString);
      ComboBox_masterRefereeId.Items.Add(ADOQueryPWXMSelect.FieldByName('ID').AsString);
      ComboBox_masterRefereeName.Items.Add(ADOQueryPWXMSelect.FieldByName('name').AsString);
      ADOQueryPWXMSelect.next;
    end;

  str := 'select ID,name from base_info_candidate';
  ADOQueryXSXMBHSelect.SQL.Clear;
  ADOQueryXSXMBHSelect.SQL.Add(str);
  ADOQueryXSXMBHSelect.Open;
  while not ADOQueryXSXMBHSelect.Eof do
    begin
      ComboBox_CandidateName.Items.Add(ADOQueryXSXMBHSelect.FieldByName('name').AsString);
      ComboBox_CandidateId.Items.Add(ADOQueryXSXMBHSelect.FieldByName('Id').AsString);
      ComboBox_CandidateName2.Items.Add(ADOQueryXSXMBHSelect.FieldByName('name').AsString);
      ComboBox_CandidateId2.Items.Add(ADOQueryXSXMBHSelect.FieldByName('Id').AsString);
      ADOQueryXSXMBHSelect.next;
    end;

  str := 'select name_group from group_information';
  ADOQueryPWZInsert.SQL.Clear;
  ADOQueryPWZInsert.SQL.Add(str);
  ADOQueryPWZInsert.Open;
  while not ADOQueryPWZInsert.Eof do
    begin
      ComboBox_team.Items.Add(ADOQueryPWZInsert.FieldByName('name_group').AsString);
      ADOQueryPWZInsert.next;
    end;

  TabSheet0.Show;
end;

procedure TForm3.BitBtn221selectallClick(Sender: TObject);
var
  str: string;
begin
  try
          ComboBox221Content.Text :='';
          ComboBox221.Text :='';
          DBGridPWSelect.ReadOnly:=true;
          str := 'select * from base_info_referee';
          ADOQueryPWSelect.SQL.Clear;
          ADOQueryPWSelect.SQL.Add(str);
          ADOQueryPWSelect.Open;
          labelPWJB.Caption :=inttostr(ADOQueryPWSelect.RecordCount);
  except
          On E:Exception do
          begin
           MessageDlg('查询评委基本信息失败,可能是数据库连接故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
  end
end;

procedure TForm3.BitBtn221updateClick(Sender: TObject);
begin
 DBGridPWSelect.ReadOnly:=false;
end;

procedure TForm3.ShowTime(Sender: TObject);
begin
 Form3.StatusBar1.Panels[2].Text:=' 当前日期：'+DateToStr(date);
 Form3.StatusBar1.Panels[1].Text:=' 当前时间：'+timeToStr(time);

end;

procedure TForm3.BitBtn112SaveClick(Sender: TObject);
var str: string;
label base_info_candidate_insert_over;
begin
        try
          str := 'select * from base_info_candidate';
          ADOQueryXSInsert.SQL.Clear;
          ADOQueryXSInsert.SQL.Add(str);
          ADOQueryXSInsert.Open;
          while not ADOQueryXSInsert.Eof do
            begin
              if Edit_candidate_ID.Text=ADOQueryXSInsert.FieldByName('ID').AsString then
                begin
                  showmessage('该条记录已经存在于数据库中！');
                  ADOQueryXSInsert.Close;
                  goto base_info_candidate_insert_over;
                end;
              ADOQueryXSInsert.next;
            end;
          ADOQueryXSInsert.Insert;
          ADOQueryXSInsert.FieldByName('ID').AsString:= Edit_candidate_ID.Text;
          ADOQueryXSInsert.FieldByName('name').AsString:= Edit_candidate_name.Text;
          ADOQueryXSInsert.FieldByName('sex').AsString:= ComboBox_candidate_sex.Text;
          ADOQueryXSInsert.FieldByName('age').AsString:= ComboBox_candidate_age.text;
          ADOQueryXSInsert.FieldByName('blood_type').AsString:= ComboBox_candidate_blood_type.Text;
          ADOQueryXSInsert.FieldByName('education_degree').AsString:= ComboBox_candidate_education_degree.Text;
          ADOQueryXSInsert.FieldByName('specialty').AsString:= ComboBox_candidate_specialty.Text;
          ADOQueryXSInsert.FieldByName('function_level').AsString:= ComboBox_candidate_function_level.Text;
          ADOQueryXSInsert.FieldByName('politics_face').AsString:= ComboBox_candidate_politics_face.Text;
          ADOQueryXSInsert.FieldByName('province').AsString:= ComboBox_candidate_province.Text;
          ADOQueryXSInsert.FieldByName('city').AsString:= Edit_candidate_city.Text;
          ADOQueryXSInsert.FieldByName('unit_candidate').AsString:= Edit_candidate_unit_candidate.Text;
          ADOQueryXSInsert.FieldByName('hobby').AsString:= Edit_candidate_hobby.Text;
          ADOQueryXSInsert.FieldByName('career').AsString:= Edit_candidate_career.Text;
          ADOQueryXSInsert.Post;
          showmessage('该条记录保存成功！');
base_info_candidate_insert_over:
        except
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -