📄 basic.pas
字号:
unit basic;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, Db, ADODB,
DBTables, DBCtrls, Mask, jpeg, ImgList;
type
Tf_basic = class(TForm)
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
SpeedButton1: TSpeedButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
GroupBox3: TGroupBox;
BitBtn2: TBitBtn;
BitBtn10: TBitBtn;
TabSheet2: TTabSheet;
Label9: TLabel;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
ComboBox1: TComboBox;
DBNavigator1: TDBNavigator;
TabSheet3: TTabSheet;
Panel1: TPanel;
GroupBox4: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
GroupBox5: TGroupBox;
GroupBox6: TGroupBox;
BitBtn7: TBitBtn;
BitBtn6: TBitBtn;
BitBtn4: TBitBtn;
BitBtn1: TBitBtn;
SpeedButton2: TSpeedButton;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
ComboBox2: TComboBox;
Edit9: TEdit;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
namerq: TEdit;
BitBtn9: TBitBtn;
Query1: TQuery;
ADOConnection1: TADOConnection;
importTable: TADOTable;
Table1: TTable;
Label27: TLabel;
ImageList1: TImageList;
Image1: TImage;
originaldb: TDataSource;
imlddb: TDataSource;
imcwdb: TDataSource;
Query2: TQuery;
Label28: TLabel;
Edit16: TEdit;
Panel3: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
BitBtn14: TBitBtn;
importPanel: TPanel;
panel5: TPanel;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
GroupBox8: TGroupBox;
DBGrid3: TDBGrid;
Panel2: TPanel;
GroupBox9: TGroupBox;
DBGrid2: TDBGrid;
importedit: TEdit;
querybtn: TBitBtn;
BitBtn8: TBitBtn;
BitBtn15: TBitBtn;
BitBtn11: TBitBtn;
BitBtn3: TBitBtn;
BitBtn5: TBitBtn;
Label29: TLabel;
Panel4: TPanel;
Label30: TLabel;
Edit26: TEdit;
Label8: TLabel;
Edit8: TEdit;
GroupBox7: TGroupBox;
DBGrid4: TDBGrid;
Panel6: TPanel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Query2BDEDesigner: TIntegerField;
Query2BDEDesigner2: TStringField;
Query2BDEDesigner3: TStringField;
Query2BDEDesigner4: TStringField;
Query2BDEDesigner5: TStringField;
Query2BDEDesigner6: TStringField;
Query2BDEDesigner7: TStringField;
Query2BDEDesigner8: TStringField;
Query2BDEDesigner9: TStringField;
Query2BDEDesigner10: TStringField;
Query2BDEDesigner11: TStringField;
Query2BDEDesigner12: TStringField;
Query2BDEDesigner13: TStringField;
Query2BDEDesigner14: TStringField;
Query2BDEDesigner15: TStringField;
Query2BDEDesigner16: TStringField;
Query2BDEDesigner17: TStringField;
Query1BDEDesigner: TIntegerField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TStringField;
Query1BDEDesigner5: TStringField;
Query1BDEDesigner6: TStringField;
Query1BDEDesigner7: TStringField;
Query1BDEDesigner8: TStringField;
Query1BDEDesigner9: TStringField;
Query1BDEDesigner10: TStringField;
Query1BDEDesigner11: TStringField;
Query1BDEDesigner12: TStringField;
Query1BDEDesigner13: TStringField;
Query1BDEDesigner14: TStringField;
Query1BDEDesigner15: TStringField;
Query1BDEDesigner16: TStringField;
Query1BDEDesigner17: TStringField;
Query1BDEDesigner18: TStringField;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure Edit10KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit11KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit12KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit13KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit14KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit15KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit17KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit18KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit19KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit20KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit21KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit22KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit23KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit24KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn5Click(Sender: TObject);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn9Click(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure querybtnClick(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure FormShow(Sender: TObject);
// procedure DataSource1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
electtype,delegate,reclaimld,supplyld,reclaimcw,supplycw:integer; //选举类型,代表数,回收票数
datapath:string;//数据库得路径
initial:boolean;//是否初始化 { Public declarations }
end;
var
f_basic: Tf_basic;
tabletype,electtype,delegate,reclaimld,supplyld,reclaimcw,supplycw:integer; //
datapath,importname:string;//
basicflag:boolean;//是否初始化
implementation
uses
datamd,main1,inforpt, vote;
{$R *.DFM}
procedure Tf_basic.BitBtn2Click(Sender: TObject);
begin
f_basic.StatusBar1.Panels[0].Text:='当前日期'+datetostr(date);//显示日期
//basicflag:=true;
try
delegate:=strtoint(edit7.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit7.SetFocus;
exit;
end;
end;
if electtype=1 then
begin
try
supplyld:=strtoint(edit26.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit26.SetFocus;
exit;
end;
end;
try
reclaimld:=strtoint(edit8.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit8.SetFocus;
exit;
end;
end;
reclaimcw:=0;
supplycw:=0;
end
else
begin
try
supplyld:=strtoint(edit27.text);
except
on Econverterror do
begin
showmessage('输入错误.请重新输入');
edit27.SetFocus;
exit;
end;
end;
try
reclaimld:=strtoint(edit28.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit28.SetFocus;
exit;
end;
end;
try
supplycw:=strtoint(edit29.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit29.SetFocus;
exit;
end;
end;
try
reclaimcw:=strtoint(edit30.text); //代表数
except
on Econverterror do//判断输入是否为整数
begin
showmessage('输入错误.请重新输入');
edit30.SetFocus;
exit;
end;
end;
end;
//回收票数
//electtype:=radiogroup1.ItemIndex;//选举类型
if reclaimld>supplyld then
begin
messagedlg('领导回收票数多于实发票数，选举无效，请重新确认!',mtwarning,[mbok],0);
end;
if reclaimcw>supplycw then
begin
messagedlg('常委回收票数多于实发票数，选举无效，请重新确认!',mtwarning,[mbok],0);
end;
with datamd.DataModule1.basicTable do
begin
open;
first;
edit;
if electtype=1 then
setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit26.text,edit8.text,nil,nil,electtype])
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;
end;
procedure Tf_basic.BitBtn8Click(Sender: TObject);
begin
if messagedlg('要导入新的数据库吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
main1.f_main1.GradBtn2.Enabled:=true;
main1.f_main1.GradBtn3.Enabled:=true;//恢复2，3功能
basic.f_basic.SpeedButton2.Enabled:=true;//初始化
opendialog1.Filter:='FOXPRO表文件(*.dbf)|*.dbf';
opendialog1.Title:='打开委员信息表';
if basic.f_basic.OpenDialog1.Execute then
begin
datapath:=extractfiledir(opendialog1.FileName);
adoconnection1.Connected:=false;
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';
//导入信息表
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -