dj.pas

等级考试辅助软件

               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="28") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="28") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{9}
  10:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="29") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="29") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="29") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{10}
  11:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="2A") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="2A") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="2A") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{11}
  12:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="33") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="33") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="33") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{12}
  13:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="34") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="34") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="34") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{13}
  14:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="35") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="35") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="35") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{14}
  15:begin
      case RD.itemindex of
             0:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="36") and (blcjzl IS NULL) ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{0}
             1:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="36") and (blcjzl="1") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{1}
             2:begin
               with Query1 do
                begin
                Close ;
                SQL.Clear;
                SQL.Add('SELECT * FROM bmk WHERE (LEFT(RIGHT(bmh,6),2)="36") and (blcjzl="2") ORDER BY RIGHT(BMH,4) ASC');
                open;
                end;{with}
               end;{2}
         end{case}
      end;{15}
 end;{case}
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  SL2: TStrings;
  index2: Integer;
  flag2:Boolean;
begin
  SL2 := TStringList.Create;
  flag2:=false;
  try
 ADOConnection1.GetTableNames(SL2, False);  //取得表名
    for index2 := 0 to (SL2.Count - 1) do
    begin
     if UpperCase(SL2[index2])=UpperCase('kemu')then     //判断给定表是否存在
             flag2:=true;
     end;  {for}
     if not(flag2) then
     begin
     query1.DisableControls;
     with Query1 do
       begin
       Close ;
       SQL.Clear;
       SQL.Add('CREATE TABLE kemu ( name1 VARCHAR(20))'); //创建科目表并插入记录
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("一级")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("一级 B")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("一级 WPS Office")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("一级 MS Office")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 QBASIC")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 C")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 FOXBASE+")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 VB")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 VFP")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 JAVA")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 ACCESS")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("二级 C++")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("三级 PC技术")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("三级信息管理技术")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("三级网络技术")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("三级数据库技术")');
       EXECSQL;
       SQL.Clear;
       SQL.Add('INSERT INTO kemu(name1) VALUES ("总计")');
       EXECSQL;
       end;  {with}
       query1.EnableControls ;
     end {if}
   finally
    SL2.Free;
  end;     {try}
 end;

procedure TForm1.N8Click(Sender: TObject);
var
  SL4: TStrings;
  index4: Integer;
begin
  SL4:= TStringList.Create;
   try
 ADOConnection1.GetTableNames(SL4, False);  //取得表名
    for index4 := 0 to (SL4.Count - 1) do
    begin
     if UpperCase(SL4[index4])=UpperCase('tonji')then     //判断给定表是否存在
          begin
            with Query1 do      //清除表
             begin
             Close ;
             SQL.Clear;
             SQL.Add('DROP TABLE tonji');
             EXECSQL;
             end;{with}
          end{if}
     else
        if UpperCase(SL4[index4])=UpperCase('BMK1')then     //判断给定表是否存在
             begin
            ADOTable1.Active:=false;
                with Query1 do      //清除表
                begin
                Close ;
                SQL.Clear;
                SQL.Add('DROP TABLE BMK1');
                EXECSQL;
                end;{with}
            end;{if}
            end; {for}
     finally
      SL4.Free;
       end;{try}
  with Query1 do
     begin
     SQL.Clear;
     SQL.Add('Select * from bmk');
     open;
     end;  {with}
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Form1.Close ;
Form4.Close ;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N10Click(Sender: TObject);
var
  SL5: TStrings;
  index5: Integer;
  flag5:Boolean;
begin
  SL5 := TStringList.Create;
  flag5:=false;
  try
 ADOConnection1.GetTableNames(SL5, False);  //取得表名
    for index5 := 0 to (SL5.Count - 1) do
    begin
     if UpperCase(SL5[index5])=UpperCase('BMK2')then     //判断给定表是否存在
             flag5:=true;
     end;  {for}
    if flag5 then
     begin
      with query1 do
        begin
        close;
        SQL.Clear ;
        SQL.Add('DELETE FROM BMK1 WHERE (RIGHT(bmh,4) IN (SELECT * FROM bmk2))');
        EXECSQL;
       end; {with}
       with query1 do
       begin
        SQL.Clear ;
        SQL.Add('SELECT COUNT(*)AS SUM1 FROM BMK1');
        Open;
       end; {with}
       FORM1.Caption :='参加本次等级考试的人数为：'+floattostr(Query1.fieldbyname('SUM1').Asfloat)+'人';
      with query1 do
        begin
        SQL.Clear ;
        SQL.Add('SELECT * FROM BMK1');
        Open;
        end;  {with}
     end{if}
     else
     begin
    MessageDlg('未考记录不存在', mtERROR,[mbOk], 0);
     end;{else}
  finally
    SL5.Free;
  end; {try}
end;

procedure TForm1.N9Click(Sender: TObject);
var
  SL3: TStrings;
  index3: Integer;
  flag3:Boolean;
begin
  SL3 := TStringList.Create;
  flag3:=false;
  try
 ADOConnection1.GetTableNames(SL3, False);  //取得表名
    for index3 := 0 to (SL3.Count - 1) do
    begin
     if UpperCase(SL3[index3])=UpperCase('BMK1')then     //判断给定表是否存在
            begin
             flag3:=true;
             ADOTable1.Active:=true;
             end;{if}
     end; {for}
   if flag3 then
    begin
   frReport1.LoadFromFile('baobiao.frf') ;
   frReport1.ShowReport ;
   end {if}
   else
   begin
    MessageDlg('请先排序!', mtERROR,[mbOk], 0);
   end;{else}
 finally
    SL3.Free;
  end;     {try}
end;

procedure TForm1.N11Click(Sender: TObject);
var
  SL6: TStrings;
  index6: Integer;
  flag6:Boolean;
begin
  SL6 := TStringList.Create;
  flag6:=false;
  try
 ADOConnection1.GetTableNames(SL6, False);  //取得表名
    for index6 := 0 to (SL6.Count - 1) do
    begin
     if UpperCase(SL6[index6])=UpperCase('tonji')then     //判断给定表是否存在
             begin
             flag6:=true;
             ADOTable2.Active:=true;
             end;{if}
     end;  {for}
   if flag6 then
    begin
   frReport2.LoadFromFile('tonjibiao.frf') ;
   frReport2.ShowReport ;
   end {if}
   else
   begin
    MessageDlg('请先统计!', mtERROR,[mbOk], 0);
   end;{else}
 finally
    SL6.Free;
  end;     {try}
end;

end.