#include "stdio.h"
int data[]={4816,4776,4498,4616,4948,4684,4710,5266,4760,5168,4770,5134,5076,4784,
5174,4732,4782,4746,4730,5224,5164,4742,4724,4730,4762,4162,4188,4830,4942,4072,
4270,4520,4808,5130,4272,4262,4238,4240,4828,4168,4754,4720,4896,4824,5206,4322,
3800,4826,4632,5104,5134,4838,3858,5008,4828,5234,4324,5282,5348,5150,4724,4682,
4720,5218,4744,4742,4760,5194,4792,4712,4754,4704};
int stack[72],top,aim;
void out()
{
int i;
for (i=0;i<top;i++)
{
......................
阅读全部
|
seafish011
贴于 2013年1月31日 01:18
hide
bbsi
Dim sql
Dim conn As ADODB.Connection
Dim masr As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\Database1.accdb;persist security info=false;"
sql = "Insert Into 收据 (日期,缴费单位,款项内容,收款方式,人民币大写,¥,收款单位盖章,收款人签章,备注)"
sql = sql & "Values('" & Format(日期.Value, "yyyy-MM-dd") & "','" & 款项内容.Value & "'," & 收款方式.Value & "','" & 收款方式.Value & "','" & 人民币大写.Value & "','" & Text22.Value & "','" & 收款单位盖章.Value & "','" & 收款人签章.Value & "','" & 备注.Value & "')"
conn.Execute sql
......................
阅读全部
|
小皇帝一炫
贴于 2013年1月26日 10:41
hide
bbsi