?? basic.pas
字號(hào):
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('輸入錯(cuò)誤!請輸入數(shù)字!');
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('輸入序號(hào)錯(cuò)誤!請重輸');
edit9.SetFocus;
end;
end;
end;
end;
procedure Tf_basic.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=0;//默認(rèn)為領(lǐng)導(dǎo)
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//打開領(lǐng)導(dǎo)表
begin
close;
sql.clear;
sql.add('select * from ldinfo');
open;
end;
groupbox2.Caption:='共'+inttostr(query1.RecordCount)+'人';
//打開系統(tǒng)基本信息
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); //保存設(shè)置
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:='領(lǐng)導(dǎo)類';
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('紀(jì)錄已經(jīng)存在!');
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('紀(jì)錄已經(jīng)存在!');
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;//現(xiàn)實(shí)票數(shù)
if electtype=0 then
begin
// delegate:=delegate*2;//若為換屆選舉則為2張票/人
tabsheet2.Caption:='領(lǐng)導(dǎo)/常委名單';
tabsheet3.Caption:='領(lǐng)導(dǎo)/常委詳細(xì)信息';
// combobox1.items.Text:='領(lǐng)導(dǎo)類'+#13#10+'常委類';
end
else
begin
tabsheet2.Caption:='領(lǐng)導(dǎo)候選人名單';
tabsheet3.Caption:='領(lǐng)導(dǎo)候選人詳細(xì)信息';
// combobox1.items.Text:='領(lǐng)導(dǎo)類';
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -