basic.pas

DBchart的高级使用

   adoconnection1.Connected:=true;
 //  importname:=extractfilename(opendialog1.FileName);

    with datamd.DataModule1.importdb do
    begin
      open;
      first;
      while not eof do
      delete;
    end;//清空总库
    F_basic.importTable.TableName:=extractfilename(opendialog1.FileName);
    importtable.Open;
    importtable.First;
     while not importtable.Eof do
       with importtable do
       begin
         //showmessage(fields[1].asstring);
         datamodule1.importdb.appendrecord([fields[0].asinteger,fields[1].asstring,fields[2].asstring,
         fields[3].asstring,fields[4].asstring,fields[5].asstring,fields[6].asstring,
         fields[7].asstring,fields[8].asstring,fields[9].asstring,fields[10].asstring,
         fields[11].asstring,fields[12].asstring,fields[13].asstring,fields[14].asstring,
         fields[15].asstring,fields[16].asstring]);
         Next;
       end;
   end;
   //更新总库完毕!
    with f_basic.Query2 do
    begin
    close;
    sql.clear;
    sql.add('select * from import');
    open;
    end;
 //   querybtn.Enabled:=true;
    if  messagedlg('清空系统数据库吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
    with datamodule1.ldinfoTable do
    begin
      first;
      while not eof do
      delete;//清空系统表
    end;
    with datamodule1.cwinfoTable do
    begin
      first;
      while not eof do
      delete;//清空系统表
    end;
   end;
  end;
 end;

   {


   //导入常委表
   if  electtype=0 then
   begin
     adoconnection1.Connected:=false;;
     opendialog1.Title:='打开常委信息表';
     if basic.f_basic.OpenDialog1.Execute then
     begin
      datapath:=extractfiledir(opendialog1.FileName);
      adoconnection1.ConnectionString:=
      'Provider=MSDASQL.1;Persist Security Info=False;Connect Timeout=15;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB='+datapath+';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;";Locale Identifier=2052';
       //导入常委表
      adoconnection1.Connected:=true;
      F_basic.importTable.TableName:=extractfilename(opendialog1.FileName);
      importtable.Open;
      with datamodule1.cwinfoTable do
      begin
        first;
        while not eof do
         delete;//清空系统表
        importtable.First;
       while not importtable.Eof do
       with importtable do
       begin
         datamd.DataModule1.cwinfoTable.AppendRecord([fields[0].asinteger,fields[1].asstring,fields[2].asstring,
         fields[3].asstring,fields[4].asstring,fields[5].asstring,fields[6].asstring,
         fields[7].asstring,fields[8].asstring,fields[9].asstring,fields[10].asstring,
         fields[11].asstring,fields[12].asstring,fields[13].asstring,fields[14].asstring,
         fields[15].asstring,fields[16].asstring]);
         Next;
       end;
      end;
       adoconnection1.Connected:=false;
     end;
   end;




// 出使化数据库



  combobox1change(self);
  combobox1.Text:='领导类';
  end;
  end;}


procedure Tf_basic.ComboBox1Change(Sender: TObject);
begin

  case combobox1.ItemIndex of
  0:begin
      tabletype:=0;
      with query1 do
      begin
      close;
      sql.Clear;
      sql.Add('select * from ldinfo order by 序号');
      Open;
      end;
      table1.Close;
      table1.TableName:='ldinfo';
      table1.Open;
      inforpt.f_inforpt.QRLabetype.Caption:='领导类';
    end;
  1:begin
      tabletype:=1;
      with query1 do
      begin

      close;
      sql.Clear;
      sql.Add('select * from cwinfo order by 序号');
      Open;
      end;
      table1.Close;
      table1.TableName:='cwinfo';
      table1.Open;
      inforpt.f_inforpt.QRLabetype.Caption:='常委类';
    end;
  end;
  groupbox2.Caption:='共'+inttostr(query1.RecordCount)+'人';

end;

procedure Tf_basic.BitBtn6Click(Sender: TObject);
begin
   if messagedlg('确定要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   table1.DisableControls;
   table1.open;
  table1.First;
  while not table1.Eof do
  begin
    table1.delete;
  end;
  query1.Refresh;
  end;
  table1.EnableControls;
end;

procedure Tf_basic.BitBtn4Click(Sender: TObject);
begin
  if messagedlg('确定要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  table1.open;
  table1.SetKey;
  table1.Fields[0].AsInteger:=query1.Fields[0].AsInteger;
  table1.gotokey;
  table1.Delete;
  query1.Refresh;
  end;
end;

procedure Tf_basic.BitBtn7Click(Sender: TObject);
begin
 f_inforpt.inforet.print;
end;

procedure Tf_basic.BitBtn10Click(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit7.Text:='0';
 edit8.Text:='0';
 edit26.Text:='0';
 edit27.Text:='0';
 edit28.Text:='0';
 edit29.Text:='0';
 edit30.text:='0';
end;

procedure Tf_basic.SpeedButton1Click(Sender: TObject);
begin
    Bitbtn2click(self);
    with   datamd.DataModule1.basicTable do
     begin
     open;
     first;
     edit;
     if electtype=1 then
     begin
     setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit26.text,edit8.text,nil,nil,electtype]);
     reclaimcw:=0;
     supplycw:=0;
     end
     else
     setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit27.text,edit28.text,edit29.text,edit30.text,electtype]);
     //将基本信息写回数据库
     post;
     end;
   f_vote.DBChart1.LeftAxis.Maximum:=reclaimld;
//   f_vote.DBChart1.RefreshInterval:=1;
   f_vote.DBChart2.LeftAxis.Maximum:=reclaimld;
//   f_vote.DBChart2.RefreshInterval:=1;
   {f_vote.Series1.Active:=true;
   f_vote.Series2.Active:=true;
   f_vote.Series3.Active:=true;}
   F_main1.GradBtn2.Enabled:=true;
   F_main1.GradBtn3.Enabled:=true;
   hide;
end;

procedure Tf_basic.BitBtn1Click(Sender: TObject);
begin
  f_inforpt.titlelab.Caption:=datamd.DataModule1.basicTable.fieldbyname('用户名称').asstring+'第'
  +datamd.DataModule1.basicTable.fieldbyname('届').asstring+'届第'+
  datamd.DataModule1.basicTable.fieldbyname('次').asstring+'次会议选举候选人';
  f_inforpt.inforet.Preview;
end;

procedure Tf_basic.SpeedButton2Click(Sender: TObject);
begin
  bitbtn2click(self);
  f_vote.lbltotal:=0;
  f_vote.lblld:=0;
  f_vote.lblcw:=0;
  f_vote.unlegal:=0;
  f_vote.ldxx:=0;
  f_vote.cwxx:=0;
with datamodule1.ldinfoTable do
    begin
    first;
    while not eof do
    begin
      datamodule1.ldtable.insertRecord([fields[0].value,fields[1].value,0,0,0,fieldbyname('候选职务').asstring]);
      next;
    end;
    with   datamd.DataModule1.basicTable do
     begin
     open;
     first;
     edit;
     setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit8.text,electtype]);
     //将基本信息写回数据库
     post;
     end;
   f_vote.DBChart1.LeftAxis.Maximum:=reclaimld;
   f_vote.DBChart1.RefreshInterval:=1;
   f_vote.DBChart2.LeftAxis.Maximum:=reclaimld;
   f_vote.DBChart2.RefreshInterval:=1;
   f_vote.Gauge1.Progress:=0;
   {f_vote.Series1.Active:=true;
   f_vote.Series2.Active:=true;
   f_vote.Series3.Active:=true;}
   F_main1.GradBtn2.Enabled:=true;
   F_main1.GradBtn3.Enabled:=true;

  end;




 with datamodule1.cwinfoTable do
    begin
    first;
    //datamodule1.cwTable.First;
    while not eof do
    begin
      datamodule1.cwtable.insertRecord([fields[0].value,fields[1].value,0,0,0,'常委']);
      next;
    end;
  end;
  speedbutton2.Enabled:=false;


end;

procedure Tf_basic.BitBtn3Click(Sender: TObject);
begin
if messagedlg('确定要添加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
if edit9.text='' then edit9.text:=' ';
if edit10.text='' then edit10.text:=' ';
if edit11.text='' then edit11.text:=' ';
if edit12.text='' then edit12.text:=' ';
if edit13.text='' then edit13.text:=' ';
if edit14.text='' then edit14.text:=' ';
if edit15.text='' then edit15.text:=' ';
if combobox1.text='' then combobox1.text:=' ';
if edit17.text='' then edit17.text:=' ';
if edit18.text='' then edit18.text:=' ';
if edit19.text='' then edit19.text:=' ';
if edit20.text='' then edit20.text:=' ';
if edit21.text='' then edit21.text:=' ';
if edit22.text='' then edit22.text:=' ';
if edit23.text='' then edit23.text:=' ';
if edit24.text='' then edit24.text:=' ';
if edit16.text='' then edit16.text:=' ';

try
table1.insertRecord([edit9.text,edit10.text,edit11.text,
edit12.text,edit13.text,edit14.text,edit15.text,
combobox1.text,edit17.text,edit18.text,edit19.text,edit20.text,
edit21.text,edit22.text,edit23.text,edit24.text,edit25.text,edit16.text]);

datamd.DataModule1.importdb.insertRecord([edit9.text,edit10.text,edit11.text,
edit12.text,edit13.text,edit14.text,edit15.text,
combobox1.text,edit17.text,edit18.text,edit19.text,edit20.text,
edit21.text,edit22.text,edit23.text,edit24.text,edit25.text]);
except
   on  EDBEngineError
   do showmessage('该序号已经存在!');
end;
end;
end;

procedure Tf_basic.BitBtn11Click(Sender: TObject);
begin
 edit9.Text:='';
 edit10.Text:='';
 edit11.Text:='';
 edit12.Text:='';
 edit13.Text:='';
 edit14.Text:='';
 edit15.Text:='';
 combobox1.Text:='';
 edit17.Text:='';
 edit18.Text:='';
 edit19.Text:='';
 edit20.Text:='';
 edit21.Text:='';
 edit22.Text:='';
 edit23.Text:='';
 edit24.Text:='';
 edit25.Text:='';
 edit16.text:='';
end;

procedure Tf_basic.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
  edit11.SetFocus;
end;

procedure Tf_basic.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
  edit12.SetFocus;
end;

procedure Tf_basic.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_return then
  edit13.SetFocus;
end;

procedure Tf_basic.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
  edit14.SetFocus;
end;

procedure Tf_basic.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
  edit15.SetFocus;
end;

procedure Tf_basic.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);