basic.pas

DBchart的高级使用

begin
  if key=vk_return then
  combobox1.SetFocus;
end;

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

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

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

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

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

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

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

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

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

procedure Tf_basic.BitBtn5Click(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 edit25.text='' then edit25.text:='  ';
if edit16.text='' then edit16.text:='  ';

  with table1 do
  begin
    edit;
    setfields([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]);
   post;
  end;
end;

  end;

procedure Tf_basic.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
//if  edit  then showmessage('输入错误!请输入数字!');
end;

procedure Tf_basic.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
h:integer;
begin
if key=vk_return then
  begin
   edit10.SetFocus;
  try
  h:=strtoint(edit9.text);
  except
  on Econverterror do
    begin
     showmessage('输入序号错误!请重输');
     edit9.SetFocus;
    end;

  end;

  end;
 end;

procedure Tf_basic.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=0;//默认为领导
tabletype:=0;

//initial:=false;
  datamd.DataModule1.ldTable.Open;//打开各表
  datamodule1.cwTable.Open;
  datamodule1.ldinfoTable.Open;
  datamodule1.cwinfoTable.Open;
  datamodule1.ldlxTable.Open;
  datamodule1.cwlxTable.Open;
  datamodule1.basicTable.Open;
 with query1 do//打开领导表
 begin
   close;
   sql.clear;
   sql.add('select * from ldinfo');
   open;
 end;
  groupbox2.Caption:='共'+inttostr(query1.RecordCount)+'人';



//打开系统基本信息
 with datamodule1.basicTable do
  begin
    edit1.Text:=fields[0].AsString;
    edit2.Text:=fields[1].AsString;
    edit3.Text:=fields[2].AsString;
    edit4.Text:=fields[3].AsString;
    edit5.Text:=fields[4].AsString;
    edit6.Text:=fields[5].AsString;
    edit7.Text:=fields[6].AsString;
    edit27.text:=fields[7].AsString;
    edit28.Text:=fields[8].AsString;
    edit29.Text:=fields[9].AsString;
    edit30.Text:=fields[10].AsString;
    edit26.Text:=fields[7].AsString;
    edit8.Text:=fields[8].AsString;
   // radiogroup1.ItemIndex:=electtype;
  end;
//  bitbtn2click(self); //保存设置
end;

procedure Tf_basic.BitBtn13Click(Sender: TObject);
var
i:integer;
begin
 if messagedlg('确定要清空票箱吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
  with  datamodule1.ldTable do
  begin
  first;
    while  not Eof do
    begin
       delete;
    end;
  end;

 with  datamodule1.cwTable do
  begin
  first;
   while  not Eof do
    begin
      delete;
      end;
  end;

  with  datamodule1.ldlxTable do
  begin
  first;
    while  not Eof do
    begin
       delete;
    end;
  end;

  with  datamodule1.cwlxTable do
  begin
  first;
    while  not Eof do
    begin
      delete;
    end;
  end;
  showmessage('清空完毕！清初始化');
  speedbutton2.enabled:=true;
  end;
end;

procedure Tf_basic.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  speedbutton1click(self);
end;

procedure Tf_basic.BitBtn9Click(Sender: TObject);
var
tablen:string;
begin
  case tabletype of
  0:tablen:='ldinfo';
  1:tablen:='cwinfo';
  end;
  with query1 do
  begin
    close;
    sql.clear;
    sql.Add('select * from '+tablen+' where 姓名 like:name');
    parambyname('name').asstring:='%'+namerq.text+'%';
    open;
  end;
 groupbox2.Caption:='共'+inttostr(query1.RecordCount)+'人';
end;

procedure Tf_basic.TabSheet3Show(Sender: TObject);
begin

  table1.open;
  table1.SetKey;
  table1.Fields[0].AsInteger:=query1.Fields[0].AsInteger;
  table1.gotokey;
  begin
  edit9.Text:=table1.fields[0].AsString;
  edit10.Text:=table1.Fields[1].AsString;
  edit11.Text:=table1.Fields[2].AsString;
  edit12.Text:=table1.Fields[3].AsString;
  edit13.Text:=table1.Fields[4].AsString;
  edit14.Text:=table1.Fields[5].AsString;
  edit15.Text:=table1.Fields[6].AsString;
  combobox1.Text:=table1.Fields[7].AsString;
  edit17.Text:=table1.Fields[8].AsString;
  edit18.Text:=table1.Fields[9].AsString;
  edit19.Text:=table1.Fields[10].AsString;
  edit20.Text:=table1.Fields[11].AsString;
  edit21.Text:=table1.Fields[12].AsString;
  edit22.Text:=table1.Fields[13].AsString;
  edit23.Text:=table1.Fields[14].AsString;
  edit24.Text:=table1.Fields[15].AsString;
  edit25.Text:=table1.Fields[16].AsString;
  edit16.Text:=table1.Fields[17].AsString;

  end;
end;

procedure Tf_basic.TabSheet2Show(Sender: TObject);
begin
  case tabletype of
  0:combobox1.Text:='领导类';
  1:combobox1.Text:='常委类';
  end;
  query1.Refresh;
end;

procedure Tf_basic.querybtnClick(Sender: TObject);
begin
  with f_basic.Query2 do
  begin
    close;
    sql.clear;
    sql.Add('select * from import where 姓名 like:name');
    parambyname('name').asstring:='%'+importedit.text+'%';
    open;
   end; 
end;

procedure Tf_basic.SpeedButton3Click(Sender: TObject);
begin
  try
  with query2 do
  datamodule1.ldinfoTable.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]);
   except
   on  EDBEngineError
   do showmessage('纪录已经存在!');
   end;
end;

procedure Tf_basic.SpeedButton4Click(Sender: TObject);
begin
  try
  with query2 do
  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,'常委']);
  except
  on  EDBEngineError
  do showmessage('纪录已经存在!');
  end;
end;

procedure Tf_basic.TabSheet4Show(Sender: TObject);
begin
  query2.Open;
end;

procedure Tf_basic.SpeedButton6Click(Sender: TObject);
begin
  query1.Next;
  f_basic.TabSheet3Show(self);
end;

procedure Tf_basic.SpeedButton5Click(Sender: TObject);
begin
  query1.Prior;
  f_basic.TabSheet3Show(self);
end;

procedure Tf_basic.BitBtn14Click(Sender: TObject);
begin
  query2.Active:=true;
  importpanel.Visible:=true;
end;

procedure Tf_basic.BitBtn15Click(Sender: TObject);
begin
  importpanel.Visible:=false;
end;

procedure Tf_basic.FormShow(Sender: TObject);
begin
if electtype=0 then
 begin
   panel4.Visible:=false;
   panel6.Visible:=true;
 end
 else
 begin
   panel4.Visible:=true;
   panel6.Visible:=false;
 end;//现实票数
    
  if electtype=0 then
    begin
   // delegate:=delegate*2;//若为换届选举则为2张票/人
    tabsheet2.Caption:='领导/常委名单';
    tabsheet3.Caption:='领导/常委详细信息';
 //   combobox1.items.Text:='领导类'+#13#10+'常委类';
    end
 else
  begin
    tabsheet2.Caption:='领导候选人名单';
    tabsheet3.Caption:='领导候选人详细信息';
  // combobox1.items.Text:='领导类';
  end;

end;

end.