16,748
社区成员
发帖
与我相关
我的任务
分享一个错误代码is not a valid integer value？什么意思`？
按下BitBtn1就出现这个错误，我在单位调试的时候没有的，现在到家里调出个这个来？
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer value'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer value'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
...全文
请发表友善的回复…
发表回复
ldh20042004 2005-01-15
- 打赏
- 举报
D7+ACCESS数据库+ADO，
我检查了ACCESS的设置，里面默认字段是0，数字类型的。
我检查了ACCESS的设置，里面默认字段是0，数字类型的。
ldh20042004 2005-01-15
- 打赏
- 举报
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[1].Text:='现在共有数据：'+inttostr(adotable1.RecordCount)+'条';
statusbar1.Panels[0].Text:='现在时间：'+DateTimeToStr(now);
end;
procedure TForm1.Edit12Change(Sender: TObject);
var a:integer;
begin
if edit11.Text<>''
then
if edit12.Text<>''
then
begin
a:=strtoint(edit11.Text)-strtoint(edit12.Text);
edit13.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit5Change(Sender: TObject);
var b:integer;
begin
if edit4.Text<>''
then
if edit5.Text<>''
then
begin
b:=strtoint(edit5.Text)+strtoint(edit4.Text);
edit6.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit8Change(Sender: TObject);
var b:integer;
begin
if edit7.Text<>''
then
if edit8.Text<>''
then
begin
b:=strtoint(edit7.Text)+strtoint(edit8.Text);
edit11.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit4Change(Sender: TObject);
var b:integer;
begin
if edit4.Text<>''
then
if edit5.Text<>''
then
begin
b:=strtoint(edit5.Text)+strtoint(edit4.Text);
edit6.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit7Change(Sender: TObject);
var b:integer;
begin
if edit7.Text<>''
then
if edit8.Text<>''
then
begin
b:=strtoint(edit7.Text)+strtoint(edit8.Text);
edit11.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit15Change(Sender: TObject);
var a:integer;
begin
if edit15.Text<>''
then
if edit16.Text<>''
then
begin
a:=strtoint(edit15.Text)*strtoint(edit16.Text);
edit14.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit16Change(Sender: TObject);
var a:integer;
begin
if strtoint(edit16.Text)>12
then
begin
edit16.Text:='12';
end;
if edit15.Text<>''
then
if edit16.Text<>''
then
begin
a:=strtoint(edit15.Text)*strtoint(edit16.Text);
edit14.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit18Change(Sender: TObject);
var a:integer;
begin
if edit18.Text<>''
then
if edit19.Text<>''
then
begin
a:=strtoint(edit18.Text)*strtoint(edit19.Text);
edit17.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit19Change(Sender: TObject);
var a,b:integer;
begin
if strtoint(edit19.Text)>12
then
begin
edit19.Text:='12';
end;
if edit18.Text<>''
then
if edit19.Text<>''
then
begin
a:=strtoint(edit18.Text)*strtoint(edit19.Text);
edit17.Text:=inttostr(a);
end;
if edit14.Text<>''
then
if edit17.Text<>''
then
begin
b:=strtoint(edit14.Text)+strtoint(edit17.Text);
edit20.Text:=inttostr(b);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dbgrid2.Hide;
adotable1.Active:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text:='状态：';
end;
procedure TForm1.Edit21Change(Sender: TObject);
begin
dbgrid2.Show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
IF ShellExecute(Handle,nil,'Calc.exe',nil,nil,SW_SHOWNoRMAL)<=32 THEN
Messagedlg('运行计算器失败！',mtError,[mbOK],0);
end;
procedure TForm1.N8Click(Sender: TObject);
begin
IF ShellExecute(Handle,nil,'NotePad.exe',nil,nil,SW_SHOWNoRMAL)<=32 THEN
Messagedlg('运行记事本失败！',mtError,[mbOK],0);
end;
procedure TForm1.Edit16KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit12.SetFocus;
end;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit4.SetFocus;
end;
end;
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit7.SetFocus;
end;
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit8.SetFocus;
end;
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit9.SetFocus;
end;
end;
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit10.SetFocus;
end;
end;
procedure TForm1.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit15.SetFocus;
end;
end;
procedure TForm1.Edit18KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit18.SetFocus;
end;
end;
procedure TForm1.Edit19KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit19.SetFocus;
end;
end;
procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit12.SetFocus;
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit5.SetFocus;
end;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
var a:string;
begin
if length(edit2.Text)<5 then
begin
edit2.SetFocus;
end;
if length(edit2.Text)<>5 then
showmessage('只能输入五位数');
a:=edit2.Text;
edit2.Text:=copy(a,1,5);
end;
end.
begin
statusbar1.Panels[1].Text:='现在共有数据：'+inttostr(adotable1.RecordCount)+'条';
statusbar1.Panels[0].Text:='现在时间：'+DateTimeToStr(now);
end;
procedure TForm1.Edit12Change(Sender: TObject);
var a:integer;
begin
if edit11.Text<>''
then
if edit12.Text<>''
then
begin
a:=strtoint(edit11.Text)-strtoint(edit12.Text);
edit13.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit5Change(Sender: TObject);
var b:integer;
begin
if edit4.Text<>''
then
if edit5.Text<>''
then
begin
b:=strtoint(edit5.Text)+strtoint(edit4.Text);
edit6.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit8Change(Sender: TObject);
var b:integer;
begin
if edit7.Text<>''
then
if edit8.Text<>''
then
begin
b:=strtoint(edit7.Text)+strtoint(edit8.Text);
edit11.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit4Change(Sender: TObject);
var b:integer;
begin
if edit4.Text<>''
then
if edit5.Text<>''
then
begin
b:=strtoint(edit5.Text)+strtoint(edit4.Text);
edit6.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit7Change(Sender: TObject);
var b:integer;
begin
if edit7.Text<>''
then
if edit8.Text<>''
then
begin
b:=strtoint(edit7.Text)+strtoint(edit8.Text);
edit11.Text:=inttostr(b);
end;
end;
procedure TForm1.Edit15Change(Sender: TObject);
var a:integer;
begin
if edit15.Text<>''
then
if edit16.Text<>''
then
begin
a:=strtoint(edit15.Text)*strtoint(edit16.Text);
edit14.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit16Change(Sender: TObject);
var a:integer;
begin
if strtoint(edit16.Text)>12
then
begin
edit16.Text:='12';
end;
if edit15.Text<>''
then
if edit16.Text<>''
then
begin
a:=strtoint(edit15.Text)*strtoint(edit16.Text);
edit14.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit18Change(Sender: TObject);
var a:integer;
begin
if edit18.Text<>''
then
if edit19.Text<>''
then
begin
a:=strtoint(edit18.Text)*strtoint(edit19.Text);
edit17.Text:=inttostr(a);
end;
end;
procedure TForm1.Edit19Change(Sender: TObject);
var a,b:integer;
begin
if strtoint(edit19.Text)>12
then
begin
edit19.Text:='12';
end;
if edit18.Text<>''
then
if edit19.Text<>''
then
begin
a:=strtoint(edit18.Text)*strtoint(edit19.Text);
edit17.Text:=inttostr(a);
end;
if edit14.Text<>''
then
if edit17.Text<>''
then
begin
b:=strtoint(edit14.Text)+strtoint(edit17.Text);
edit20.Text:=inttostr(b);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dbgrid2.Hide;
adotable1.Active:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text:='状态：';
end;
procedure TForm1.Edit21Change(Sender: TObject);
begin
dbgrid2.Show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
IF ShellExecute(Handle,nil,'Calc.exe',nil,nil,SW_SHOWNoRMAL)<=32 THEN
Messagedlg('运行计算器失败！',mtError,[mbOK],0);
end;
procedure TForm1.N8Click(Sender: TObject);
begin
IF ShellExecute(Handle,nil,'NotePad.exe',nil,nil,SW_SHOWNoRMAL)<=32 THEN
Messagedlg('运行记事本失败！',mtError,[mbOK],0);
end;
procedure TForm1.Edit16KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit12.SetFocus;
end;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit4.SetFocus;
end;
end;
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit7.SetFocus;
end;
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit8.SetFocus;
end;
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit9.SetFocus;
end;
end;
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit10.SetFocus;
end;
end;
procedure TForm1.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit15.SetFocus;
end;
end;
procedure TForm1.Edit18KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit18.SetFocus;
end;
end;
procedure TForm1.Edit19KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit19.SetFocus;
end;
end;
procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit12.SetFocus;
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9','-',#8]) then
begin
showMessage('呵呵,只能输入数字!');
Key :=#0;
edit5.SetFocus;
end;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
var a:string;
begin
if length(edit2.Text)<5 then
begin
edit2.SetFocus;
end;
if length(edit2.Text)<>5 then
showmessage('只能输入五位数');
a:=edit2.Text;
edit2.Text:=copy(a,1,5);
end;
end.
ldh20042004 2005-01-15
- 打赏
- 举报
代码：
unit main_form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ImgList, ComCtrls, ToolWin, WinSkinData,
StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, DB, ADODB, jpeg,
shellApi, DosMove;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Panel1: TPanel;
StatusBar1: TStatusBar;
SkinData1: TSkinData;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
TabSheet3: TTabSheet;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
DBMemo2: TDBMemo;
DBEdit44: TDBEdit;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Image1: TImage;
Image3: TImage;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label45: TLabel;
N5: TMenuItem;
ImageList1: TImageList;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Memo1: TMemo;
Timer1: TTimer;
ADOTable1: TADOTable;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBGrid2: TDBGrid;
Edit21: TEdit;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
DosMove1: TDosMove;
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit12Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit15Change(Sender: TObject);
procedure Edit16Change(Sender: TObject);
procedure Edit18Change(Sender: TObject);
procedure Edit19Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit21Change(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Edit16KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure Edit15KeyPress(Sender: TObject; var Key: Char);
procedure Edit18KeyPress(Sender: TObject; var Key: Char);
procedure Edit19KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit2Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adotable1.Append; //添加数据
adotable1.FieldByName('单位编号').AsString:=trim(edit2.Text);
adotable1.FieldByName('单位名称').AsString:=trim(edit3.Text);
adotable1.FieldByName('在职').AsString:=trim(edit4.Text);
adotable1.FieldByName('退休').AsString:=trim(edit5.Text);
adotable1.FieldByName('总人数').AsString:=trim(edit6.Text);
adotable1.FieldByName('个人应缴费').AsString:=trim(edit7.Text);
adotable1.FieldByName('单位应缴费').AsString:=trim(edit8.Text);
adotable1.FieldByName('个人实缴费').AsString:=trim(edit9.Text);
adotable1.FieldByName('单位实缴费').AsString:=trim(edit10.Text);
adotable1.FieldByName('应收合计').AsString:=trim(edit11.Text);
adotable1.FieldByName('财政配套数').AsString:=trim(edit12.Text);
adotable1.FieldByName('实收合计').AsString:=trim(edit13.Text);
adotable1.FieldByName('个人帐户拨付').AsString:=trim(edit14.Text);
adotable1.FieldByName('个人帐户分配基数').AsString:=trim(edit15.Text);
adotable1.FieldByName('个人帐户月份').AsString:=trim(edit16.Text);
adotable1.FieldByName('统筹基金拨付').AsString:=trim(edit17.Text);
adotable1.FieldByName('统筹基金分配基数').AsString:=trim(edit18.Text);
adotable1.FieldByName('统筹基金月份').AsString:=trim(edit19.Text);
adotable1.FieldByName('分配合计').AsString:=trim(edit20.Text);
adotable1.FieldByName('参保时间').AsDateTime:=datetimepicker2.Date;
adotable1.FieldByName('交款时间').AsDateTime:=datetimepicker1.Date;
adotable1.FieldByName('备注').AsString:=trim(memo1.Text);
adotable1.FieldByName('数据提交时间').AsString:=DateTimeToStr(now);
adotable1.Post;
refresh();
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:='';
edit18.Text:='';
edit19.Text:='';
edit20.Text:='';
showmessage(' 添加成功！ ');
end;
unit main_form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ImgList, ComCtrls, ToolWin, WinSkinData,
StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, DB, ADODB, jpeg,
shellApi, DosMove;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Panel1: TPanel;
StatusBar1: TStatusBar;
SkinData1: TSkinData;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
TabSheet3: TTabSheet;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
DBMemo2: TDBMemo;
DBEdit44: TDBEdit;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Image1: TImage;
Image3: TImage;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label45: TLabel;
N5: TMenuItem;
ImageList1: TImageList;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Memo1: TMemo;
Timer1: TTimer;
ADOTable1: TADOTable;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBGrid2: TDBGrid;
Edit21: TEdit;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
DosMove1: TDosMove;
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit12Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit15Change(Sender: TObject);
procedure Edit16Change(Sender: TObject);
procedure Edit18Change(Sender: TObject);
procedure Edit19Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit21Change(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Edit16KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure Edit15KeyPress(Sender: TObject; var Key: Char);
procedure Edit18KeyPress(Sender: TObject; var Key: Char);
procedure Edit19KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit2Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adotable1.Append; //添加数据
adotable1.FieldByName('单位编号').AsString:=trim(edit2.Text);
adotable1.FieldByName('单位名称').AsString:=trim(edit3.Text);
adotable1.FieldByName('在职').AsString:=trim(edit4.Text);
adotable1.FieldByName('退休').AsString:=trim(edit5.Text);
adotable1.FieldByName('总人数').AsString:=trim(edit6.Text);
adotable1.FieldByName('个人应缴费').AsString:=trim(edit7.Text);
adotable1.FieldByName('单位应缴费').AsString:=trim(edit8.Text);
adotable1.FieldByName('个人实缴费').AsString:=trim(edit9.Text);
adotable1.FieldByName('单位实缴费').AsString:=trim(edit10.Text);
adotable1.FieldByName('应收合计').AsString:=trim(edit11.Text);
adotable1.FieldByName('财政配套数').AsString:=trim(edit12.Text);
adotable1.FieldByName('实收合计').AsString:=trim(edit13.Text);
adotable1.FieldByName('个人帐户拨付').AsString:=trim(edit14.Text);
adotable1.FieldByName('个人帐户分配基数').AsString:=trim(edit15.Text);
adotable1.FieldByName('个人帐户月份').AsString:=trim(edit16.Text);
adotable1.FieldByName('统筹基金拨付').AsString:=trim(edit17.Text);
adotable1.FieldByName('统筹基金分配基数').AsString:=trim(edit18.Text);
adotable1.FieldByName('统筹基金月份').AsString:=trim(edit19.Text);
adotable1.FieldByName('分配合计').AsString:=trim(edit20.Text);
adotable1.FieldByName('参保时间').AsDateTime:=datetimepicker2.Date;
adotable1.FieldByName('交款时间').AsDateTime:=datetimepicker1.Date;
adotable1.FieldByName('备注').AsString:=trim(memo1.Text);
adotable1.FieldByName('数据提交时间').AsString:=DateTimeToStr(now);
adotable1.Post;
refresh();
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:='';
edit18.Text:='';
edit19.Text:='';
edit20.Text:='';
showmessage(' 添加成功！ ');
end;
daijingjie2002 2005-01-15
- 打赏
- 举报
‘’不是有效的整型数值
贴出代码
贴出代码
Kevin_Lmx 2005-01-15
- 打赏
- 举报
''(空值)不是有效的整型数值。
检查程序代码
^_^
检查程序代码
^_^
yqdragon 2005-01-15
- 打赏
- 举报
你的数据库中字段定义为整型，但输入数据时候有空值，才会出现这个错误，可以在定义数据库时候加上缺省值，如 create table tt(id smallint default 0,.......即可
