📄 unit3.~pas

📁 我为某旅游局开发的评委评估系统
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
          On E:Exception do
          begin
           MessageDlg('录入选手基本信息失败,可能是必要信息录入不全，也可能数据库故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
        end;
end;

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



procedure TForm3.BitBtn222updateClick(Sender: TObject);
begin
 DBGridXSSelect.ReadOnly:=false;
end;

procedure TForm3.BitBtn113SaveClick(Sender: TObject);
var str: string;
label group_insert_over;
begin
        try
          str := 'select * from group_information';
          ADOQueryPWZInsert.SQL.Clear;
          ADOQueryPWZInsert.SQL.Add(str);
          ADOQueryPWZInsert.Open;
          while not ADOQueryPWZInsert.Eof do
            begin
              if Edit_ID_group.Text=ADOQueryPWZInsert.FieldByName('ID_group').AsString then
                begin
                  showmessage('该条记录已经存在于数据库中！');
                  ADOQueryPWZInsert.Close;
                  goto group_insert_over;
                end;
              ADOQueryPWZInsert.next;
            end;
          ADOQueryPWZInsert.Insert;
          ADOQueryPWZInsert.FieldByName('ID_group').AsInteger:= strtoint(Edit_ID_group.text);
          ADOQueryPWZInsert.FieldByName('name_group').AsString:= Edit_name_group.Text;
          ADOQueryPWZInsert.FieldByName('number_group').AsInteger:= strtoint(Edit_number_group.Text);
          ADOQueryPWZInsert.FieldByName('masterrefereeID').AsString:= Combobox_masterrefereeID.text;
          ADOQueryPWZInsert.FieldByName('masterrefereeName').AsString:= Combobox_masterrefereeName.text;
          ADOQueryPWZInsert.Post;
          ADOQueryPWZInsert.Close;
          showmessage('该条记录保存成功！');
group_insert_over:
        except
          On E:Exception do
          begin
           MessageDlg('录入评委组信息失败,可能是必要信息录入不全，也可能数据库故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
        end;
end;

procedure TForm3.BitBtn117SaveClick(Sender: TObject);
var str: string;
begin
        try
          str := 'delete from refereeLevel where type='+quotedstr(Combobox117.Text);
          ADOQueryPWSPBZInsert.SQL.Clear;
          ADOQueryPWSPBZInsert.SQL.Add(str);
          ADOQueryPWSPBZInsert.ExecSQL ;

          str := 'select * from refereeLevel';
          ADOQueryPWSPBZInsert.SQL.Clear;
          ADOQueryPWSPBZInsert.SQL.Add(str);
          ADOQueryPWSPBZInsert.Open;
          ADOQueryPWSPBZInsert.Insert;
          ADOQueryPWSPBZInsert.FieldByName('type').AsString:= Combobox117.text;
          ADOQueryPWSPBZInsert.FieldByName('verygood').Asfloat:= strtofloat(Edit_verygood.text);
          ADOQueryPWSPBZInsert.FieldByName('good').Asfloat:= strtofloat(Edit_good.Text);
          ADOQueryPWSPBZInsert.FieldByName('ordinary').Asfloat:= strtofloat(Edit_ordinary.Text);
          ADOQueryPWSPBZInsert.FieldByName('pass').Asfloat:= strtofloat(Edit_pass.text);
          ADOQueryPWSPBZInsert.FieldByName('factor').Asfloat:= strtofloat(Combobox117factor.text);
          ADOQueryPWSPBZInsert.Post;
          ADOQueryPWSPBZInsert.Close;
          showmessage('该条记录保存成功！');
        except
          On E:Exception do
          begin
           MessageDlg('录入评委水平标准失败,可能是录入信息不全，或者数据库故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
        end;
end;

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

procedure TForm3.BitBtn223UpdateClick(Sender: TObject);
begin
  DBGridPWZSelect.ReadOnly:=false;
end;

procedure TForm3.BitBtn114SaveClick(Sender: TObject);//录入评分标准
var str: string;
label criterion_insert_over;
begin
        try
          str := 'select * from criterion';
          ADOQueryBZInsert.SQL.Clear;
          ADOQueryBZInsert.SQL.Add(str);
          ADOQueryBZInsert.Open;
          while not ADOQueryBZInsert.Eof do
            begin
              if Edit_ID_criterion.Text=ADOQueryBZInsert.FieldByName('ID_criterion').AsString then
                begin
                  showmessage('该条记录已经存在于数据库中！');
                  ADOQueryBZInsert.Close;
                  goto criterion_insert_over;
                end;
              ADOQueryBZInsert.next;
            end;
          ADOQueryBZInsert.Insert;
          ADOQueryBZInsert.FieldByName('ID_criterion').AsString:= Edit_ID_criterion.text;
          ADOQueryBZInsert.FieldByName('kind').AsString:= Edit_kind.Text;
          ADOQueryBZInsert.FieldByName('kind_mark').AsFloat:= strtofloat(Edit_kind_mark.Text);
          ADOQueryBZInsert.FieldByName('kind_content').AsString:= memo_kind_content.Text;
          ADOQueryBZInsert.FieldByName('subkind').AsString:= Edit_subkind.Text;
          ADOQueryBZInsert.FieldByName('subkind_mark').AsFloat:= strtofloat(Edit_subkind_mark.Text);
          ADOQueryBZInsert.FieldByName('subkind_content').AsString:= memo_subkind_content.Text;
          ADOQueryBZInsert.Post;
          ADOQueryBZInsert.Close;
          showmessage('该条记录保存成功！');
criterion_insert_over:
        except
          On E:Exception do
          begin
           MessageDlg('录入评分标准信息失败,可能是必要信息录入不全，也可能数据库故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
        end;
end;

procedure TForm3.BitBtn224SelectallClick(Sender: TObject);
var
  str: string;
begin
  try
          DBGridBZSelect.ReadOnly:=true;
          str := 'select * from criterion';
          ADOQueryBZSelect.SQL.Clear;
          ADOQueryBZSelect.SQL.Add(str);
          ADOQueryBZSelect.Open;
          labelBZ.Caption :=inttostr(ADOQueryBZSelect.RecordCount);
  except
          On E:Exception do
          begin
           MessageDlg('查询评分标准信息失败,可能是数据库连接故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
  end
end;

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

procedure TForm3.BitBtn226SelectallClick(Sender: TObject);
var
  str: string;
begin
  try
          ComboBox226condition.Text :='';
          ComboBox226content.Text :='';
          DBGridXSDFSelect.ReadOnly:=true;
          str := 'select * from statistical_mark';
          ADOQueryXSDFSelect.SQL.Clear;
          ADOQueryXSDFSelect.SQL.Add(str);
          ADOQueryXSDFSelect.Open;
          labelXSDF.Caption :=inttostr(ADOQueryXSDFSelect.RecordCount);
  except
          On E:Exception do
          begin
           MessageDlg('查询选手得分信息失败,可能是数据库连接故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
  end
end;

procedure TForm3.BitBtn224UpdateClick(Sender: TObject);
begin
 DBGridBZSelect.ReadOnly:=false;
end;

procedure TForm3.BitBtn225UpdateClick(Sender: TObject);
begin
 DBGridPWPFSelect.ReadOnly:=false;
end;

procedure TForm3.BitBtn226UpdateClick(Sender: TObject);
begin
 DBGridXSDFSelect.ReadOnly:=false;
end;

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

procedure TForm3.BitBtn336SelectallClick(Sender: TObject);
var
  str: string;
begin
  try
          IfMemo:= false;
          DBGridPWSPTJ.Visible :=true;
          MemoPWSPTJ.Visible :=false;
          ComboBox336Condition.Text :='';
          ComboBox336Content.Text :='';
          DBGridPWSPTJ.ReadOnly:=true;
          str := 'select * from base_info_referee';
          ADOQueryPWSPTJ.SQL.Clear;
          ADOQueryPWSPTJ.SQL.Add(str);
          ADOQueryPWSPTJ.Open;
          labelPWSPTJ.Caption :=inttostr(ADOQueryPWSPTJ.RecordCount);
  except
          On E:Exception do
          begin
           MessageDlg('查询评委水平统计信息失败,可能是数据库连接故障，请仔细查证下述原因：'+E.Message,mtError,[mbOk],0);
          end;
  end
end;

procedure TForm3.BitBtn221selectClick(Sender: TObject);
var
  str: string;
  selectCondition:string;
begin
  try
          if ComboBox221.text='评委编号' then
          selectCondition:='ID';
          if ComboBox221.text='评委姓名' then
          selectCondition:='name';
          if ComboBox221.text='评委年龄' then
          selectCondition:='age';
          if ComboBox221.text='评委性别' then
          selectCondition:='sex';
          if ComboBox221.text='评委血型' then
          selectCondition:='blood_type';
          if ComboBox221.text='评委学历' then
          selectCondition:='education_degree';
          if ComboBox221.text='评委专业' then
          selectCondition:='specialty';
          if ComboBox221.text='评委职称' then
          selectCondition:='function_level';
          if ComboBox221.text='评委职业' then
          selectCondition:='career';
          if ComboBox221.text='评委爱好' then
          selectCondition:='hobby';
          if ComboBox221.text='评委水平' then
          selectCondition:='referee_level';
          if ComboBox221.text='评委所在单位' then
          selectCondition:='unit_referee';
          if ComboBox221.text='评委所在省份' then
          selectCondition:='province';
          if ComboBox221.text='评委所在城市' then
          selectCondition:='city';
          if ComboBox221.text='评委所在组' then
          selectCondition:='in_group';
          if ComboBox221.text='评委政治面貌' then
          selectCondition:='politics_face';

          DBGridPWSelect.ReadOnly:=true;
          str := 'select * from base_info_referee where '+selectCondition+ '='+quotedstr(ComboBox221Content.Text);
          if (ComboBox221.text='') and (ComboBox221Content.text='') then
          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.BitBtn115SaveClick(Sender: TObject);
var str: string;
label PWPF_insert_over;
begin
        try
          str := 'select * from mark_record_banquet';
          ADOQueryPWPFInsert.SQL.Clear;
          ADOQueryPWPFInsert.SQL.Add(str);
          ADOQueryPWPFInsert.Open;
          while not ADOQueryPWPFInsert.Eof do
            begin
              if ((ComboBox_Compete_Stage.Text=ADOQueryPWPFInsert.FieldByName('Compete_stage').AsString) and (Combobox_candidateId.text=ADOQueryPWPFInsert.FieldByName('ID_candidate').AsString) and (Combobox_refereename.text=ADOQueryPWPFInsert.FieldByName('RefereeName').AsString)) or ((ComboBox_Compete_Stage.Text=ADOQueryPWPFInsert.FieldByName('Compete_stage').AsString) and (Combobox_CandidateName.text=ADOQueryPWPFInsert.FieldByName('CandidateName').AsString) and (Combobox_refereename.text=ADOQueryPWPFInsert.FieldByName('RefereeName').AsString))then
                begin
                  showmessage('该条记录已经存在于数据库中！');
                  ADOQueryPWPFInsert.Close;
                  goto PWPF_insert_over;
                end;
              ADOQueryPWPFInsert.next;
            end;
          ADOQueryPWPFInsert.Insert;
          ADOQueryPWPFInsert.FieldByName('Compete_stage').AsString:= ComboBox_Compete_Stage.Text;
          ADOQueryPWPFInsert.FieldByName('ID_candidate').AsString:= Combobox_candidateId.Text;
          ADOQueryPWPFInsert.FieldByName('CandidateName').AsString:= Combobox_CandidateName.Text;
          ADOQueryPWPFInsert.FieldByName('Id_Refe
上一页 1 2 3 45
⌨️ 快捷键说明

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