?? basic.pas
字號:
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);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -