如何用按键精灵建立一个数据库

按键肯定是可以做到的

不过由于每个人的实际情况都不一样要求也不同

所以这儿不能帮你写源码了

刚刚用按键精灵大致画了个界面,还可以添加很多功能

关于数据库,我倾向于用ini文件,

条码/名称做为"小节名",

出入库的时间做为"键名",

其他信息可以格式化后做为各种键值被读取和写入

希望对你有用

希望你能仔细研究下按键,如有不明白的地方可以追问或者用问题直接百度hi我

给你个Access的例子（很早之前写的，现在好久没用过按键了）：

Ret = Plugin.Access.Connect(path,"")

If RET = true Then

Form1.短信1.Text="连接数据库成功"

原ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

Do

新ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

If 新ID = 原ID Then

Delay 5000

Else

Form1.短信老.Text=Form1.短信老.Text&"提取前"&新ID&VBCrLf

新ID = Lib.算法.提取字串符中所有数字(新ID)

Form1.短信老.Text=Form1.短信老.Text&"提取后"&新ID&VBCrLf

yzm = Plugin.Access.SelectData("MSG_Inbox", "MsgTitle","ID="&新ID)

If instr(yzm,"百度")>0 Then

Form1.短信1.Text=yzm

Exit Do

Else

Form1.短信1.Text="【获取到不是来自百度的短信？？？】"&VBCrLf&yzm

Exit Do

End If

End If

Loop

Ret = Plugin.Access.Close()

End If

给你段代码参考：

//将查询出的数据导出成Excel文件

procedure TForm1.N1Click(Sender: TObject)

var MSExcel:Variant

i,n:Integer

begin

SaveDialog1.Filter:='*.xls|*.xls'

SaveDialog1.DefaultExt:='XLS'

if SaveDialog1.Execute then

begin

MSExcel:=CreateOLEObject('Excel.Application')

MSExcel.WorkBooks.Add

MSExcel.Visible:=False

form1.ADOQuery1.Open

n:=form1.ADOQuery1.RecordCount

form1.ADOQuery1.First

MSExcel.Cells[1,1].NumberFormat:='@'

MSExcel.Cells[1,1].Value:='编号'

MSExcel.Cells[1,2].Value:='歌曲名'

MSExcel.Cells[1,3].Value:='演唱者'

MSExcel.Cells[1,4].Value:='类型代码'

MSExcel.Cells[1,5].Value:='使用时间'

MSExcel.Cells[1,6].Value:='备注'

for i:=2 to n do

begin

MSExcel.Cells[i,1].NumberFormat:='@'

MSExcel.Cells[i,1].Value:=ADOQuery1.FieldByName('SongID').AsString

MSExcel.Cells[i,2].Value:=ADOQuery1.FieldByName('SongName').AsString

MSExcel.Cells[i,3].Value:=ADOQuery1.FieldByName('Singer').AsString

MSExcel.Cells[i,4].Value:=ADOQuery1.FieldByName('ClassID').AsString

MSExcel.Cells[i,5].Value:=ADOQuery1.FieldByName('UseTimes').AsString

MSExcel.Cells[i,6].Value:=ADOQuery1.FieldByName('Note').AsString

form1.ADOQuery1.Next

end

MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName)

MSExcel.ActiveWorkBook.Saved:=True

MSExcel.Quit

end

//messagebox(0,'数据已成功导出!','系统提示!',MB_OK+MB_ICONINFORMATION)

end

---