我正在开发信息亭食堂计费软件,该软件可以对食堂的物品进行计费。
我在数据库中有两张表,一张带有菜单,另一张带有用户。
这些项目显示在根据记录数动态创建的面板上。当用户单击面板时,需要将项目添加到 dbgrid。
最后,必须根据'userid'将账单保存到表格中。
简单来说; 当用户单击面板时,我希望商品及其价格显示在 dbgrid 上。此外,我希望使用设计中的保存按钮将账单保存到表格中。
我有以下表格;
1.) dbo.Menu,包含 Menu_index、Item_Name、Item_Price 列。
2.) dbo.Users 列 UserId、UserName、UsrPwd、Status。
3.) dbo.Tran_details 包含 Menu_index、Menu_id、Item_price 列。
4.) dbo.Tran_header 与列 Menu_index、Date、UserID。
我所做的编码是这样的(如下),但我被困在这一点上。任何方法或示例编码将不胜感激。
提前致谢。
procedure TfrmMenu.FormCreate(Sender: TObject);
begin
with DMCanteen do
begin
QryMenu.Close;
QryMenu.SQL.Clear;
QryMenu.SQL.Add('select Menu_Index,Item_Name,Item_Price from MENU');
QryMenu.Open;
SetLength(arrmenu, QryMenu.recordCount);
SetLength(arrmenuid, QryMenu.recordCount);
SetLength(arritemprice, QryMenu.recordCount);
i := 0;
QryMenu.First;
while not QryMenu.Eof do
begin
arrmenu[i] := QryMenu.FieldByName('Item_Name').AsString;
arrmenuid[i] := QryMenu.FieldByName('Menu_Index').AsInteger;
arritemprice[i] := QryMenu.FieldByName('Item_Price').AsString;
QryMenu.Next;
inc(i);
end;
showmessage(Inttostr(QryMenu.recordcount));
CreateButtons(QryMenu.recordcount, 5, Panel1);
end;
end;