main.~pas

本人帮别人写的一个卡特尔16F性格检测程序

     DataModule1.ADOQuery1.Next;
end;
end;
procedure TForm1.chkclick(Sender:Tobject);
var rd : TRadioButton;
var ck :TCheckBox;
var ss :string;
begin
//application.MessageBox('ok','ts');
if  Sender is    TRadioButton then
begin
    rd :=   Sender as TRadiobutton;
    ;
    ss := inttostr(rd.Tag);
   //application.MessageBox(Pansichar(ss),'OK');
end;
if Sender is  TCheckBox then
begin
    ck :=   Sender as TCheckBox;
    ss := inttostr(ck.Tag);
   // application.MessageBox(Pansichar(ss),'ts');
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);

begin
 Panel2.Visible := true;
 Panel3.Visible := false;

end;
// i页标，th题号 ，c 题标题 ，
procedure TForm1.createControles(i:integer;c:string;th:integer;tType:integer; q1:string;q2:string;q3:string;qaf:integer;qbf:integer;qcf:integer);
var
ChildControl: TControl;
l:TLabel;
r:TRadioButton;
p:TPanel;
crl : integer;
crt:integer;
crw:integer;
ck :TCheckBox;
begin

  begin
    p := Tpanel.Create( Panel3);
    p.Caption := '';
    p.Width :=  Panel3.Width - 150;
    p.Left :=40;
    p.Top := i * 40 ;
    p.BevelInner :=  bvnone;
    p.BevelOuter :=  bvnone;
    p.Color := clwhite;
    Panel3.InsertControl(p);
   
    l := TLabel.Create( Panel3) ;
    l.Width := p.Width;
    l.AutoSize := false;
    l.Caption:=  c;//'LB'  + inttostr(i);  inttostr(th) + '.' +
    l.Top := 0;
    l.Left := 10;
    l.Tag := th;

    p.InsertControl(l);
    crl := 32;
    if tType = 1 then
        begin
            r := TRadioButton.Create( Panel3);
            r.Caption := q1;
            r.Left := crl;
            r.Top := 20;
            r.Width := 195;
            r.Tag := qaf;
            
            r.OnClick :=   chkclick;
            crl := r.Left;
            //crt := r.Top;

            p.InsertControl(r);

            r := TRadioButton.Create( Panel3);
            r.Caption := q2;
            r.Left := crl + 195 ;
            r.Top := 20;
            r.Width := 195;
            r.Tag := qbf;
            r.OnClick :=   chkclick;
            crl := r.Left;
            //crt := r.Top;
            p.InsertControl(r);

            r := TRadioButton.Create( Panel3);
            r.Caption := q3;
            r.Left := 20 + 195 *2;
            r.Top := 20;
            r.Width := 195;
            r.Tag := qcf;
            r.OnClick :=   chkclick;
            p.InsertControl(r);
        end
    else
        begin
           ck := TCheckBox.Create( Panel3);
            ck.Caption := q1;
            ck.Left := 32;
            ck.Top := 20;
            ck.Width := 195;
            ck.Tag := qaf;
            ck.OnClick :=   chkclick;
            //crl := r.Left;
           // crt := r.Top;

            p.InsertControl(ck);

            ck := TCheckBox.Create( Panel3);
            ck.Caption := q2;
            ck.Left := crl + 195 ;
            ck.Top := 20;
            ck.Width := 195;
            ck.Tag :=qbf;
            ck.OnClick :=   chkclick;
            //crl := r.Left;
            //crt := r.Top;
            p.InsertControl(ck);

            ck := TCheckBox.Create( Panel3);
            ck.Caption := q3;
            ck.Left := 32 + 195 *2;
            ck.Top := 20;
            ck.Width := 195;
            ck.Tag := qcf;
            ck.OnClick :=   chkclick;
            p.InsertControl(ck);
        end;
  end;
end;



var pageNumber :integer=0;
procedure TForm1.newCsExecute(Sender: TObject);
begin
isNewcsz := true;
    Panel1.Visible := true;
    Panel2.Visible := false;
    Panel3.Visible := false;
   //
    Edit1.Text := '';
    ComboBox1.Text :='';
    Edit2.Text :='';
    MaskEdit1.Text := '';
   pageNumber :=0;
  // Timer1.Enabled := false;
  js := false; //开始记时
    mainSateBar.Panels[1].Text := '用时：';
end;

procedure TForm1.aboutExecute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

procedure TForm1.exitSystemExecute(Sender: TObject);
begin
 Close;
//OKBottomDlg.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if application.MessageBox('你确定要退出系统么？','提示', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES			then    CanClose := false;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
 BitBtn4.Enabled := false;

//application.MessageBox(pansichar(inttostr( Panel3.ControlCount)),'tt');
SaveTs;
clearPanl3Controls;
pageNumber :=pageNumber + 10;
createNewSt(pageNumber);
end;
procedure TForm1.clearPanl3Controls();
var
  J,I: Integer;
  ChildControl: TControl;
begin

  for  J :=  Panel3.ControlCount -1 downto 0 do
  begin
    ChildControl :=  Panel3.Controls[J];
    if ChildControl is  TPanel then
      ChildControl.Free;
     //J :=  Panel3.ControlCount;
  end;
end;

procedure TForm1.SaveTs();
var tm,tts :integer;
ChildControl: TControl;
begin
  for tm := 0 to   Panel3.ControlCount -1 do
    begin
       ChildControl :=  Panel3.Controls[tm];
       if ChildControl is TPanel then
         //for tts:=0 to 3 do
           begin
               DataModule1. ADOTable3.Open;
               DataModule1.ADOTable3.Append;
               DataModule1.ADOTable3.FieldByName('csrbh').Value := rybh;//人员编号

              DataModule1.ADOTable3.FieldByName('anid').value := (ChildControl as Tpanel).Controls[0].Tag;   //试题id
               if (ChildControl as Tpanel).Controls[1] is TCheckBox then  //如果是多选题
               begin
                  //如果答案A被选择
                        if  (((ChildControl as Tpanel).Controls[1]) as TcheckBox).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QA').value := true;
                               DataModule1.ADOTable3.FieldByName('QAf').value := (ChildControl as Tpanel).Controls[1].Tag;
                            end;
                  //如果答案B被选择
                        if  (((ChildControl as Tpanel).Controls[2]) as TcheckBox).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QB').value := true;
                               DataModule1.ADOTable3.FieldByName('QBf').value := (ChildControl as Tpanel).Controls[2].Tag;
                            end;
                  //如果答案C被选择
                        if  (((ChildControl as Tpanel).Controls[3]) as TcheckBox).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QC').value := true;
                               DataModule1.ADOTable3.FieldByName('QCf').value := (ChildControl as Tpanel).Controls[3].Tag;
                            end;
               end;
                if (ChildControl as Tpanel).Controls[1] is TRadioButton then  //如果是单选题
               begin
                  //如果答案A被选择
                        if  (((ChildControl as Tpanel).Controls[1]) as TRadioButton).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QA').value := true;
                               DataModule1.ADOTable3.FieldByName('QAf').value := (ChildControl as Tpanel).Controls[1].Tag;
                            end;
                  //如果答案B被选择
                        if  (((ChildControl as Tpanel).Controls[2]) as TRadioButton).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QB').value := true;
                               DataModule1.ADOTable3.FieldByName('QBf').value := (ChildControl as Tpanel).Controls[2].Tag;
                            end;
                  //如果答案C被选择
                        if  (((ChildControl as Tpanel).Controls[3]) as TRadioButton).Checked then
                            begin
                               DataModule1.ADOTable3.FieldByName('QC').value := true;
                               DataModule1.ADOTable3.FieldByName('QCf').value := (ChildControl as Tpanel).Controls[3].Tag;
                            end;
               end;
              DataModule1.ADOTable3.Post;
                
           end;
       
    end;
end;
procedure TForm1.stEditExecute(Sender: TObject);
begin
 Form2.ShowModal;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
if form4 = nil then
form4 := Tform4.Create(self);
form4.Show;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
 Edit2.Text :=  ComboBox2.Text;
end;

procedure TForm1.findRecordExecute(Sender: TObject);
begin

Form5 := Tform5.Create(self);
Form5.Show;
end;

procedure TForm1.changUserExecute(Sender: TObject);
begin
OKBottomDlg := TOKBottomDlg.Create(self);
OKBottomDlg.initLogin := false;
OKBottomDlg.ShowModal;
end;

procedure TForm1.jcTreeManegerExecute(Sender: TObject);
begin
form6 := tform6.Create(self);
form6.Show;
end;

procedure TForm1.totalRptExecute(Sender: TObject);
begin
Form7 := Tform7.Create(self);
DataModule1.ADOQuery5.Open;
Form7.QuickRep1.Preview;
Form7.Close;
end;

end.