淄
淄博一水亭
Unregistered / Unconfirmed
GUEST, unregistred user!
做过Pos系统的兄弟过来看看。讨论一下客显部分。就是当收银员算出总价后,让客户看到"总金额"、"实收"、"找零'.(客显部分) 是直接将"总金额"、"实收"、"...现在我不知道如何写,
if Edit_poss.ItemIndex = 0 then
poss := 'lpt1';
if Edit_poss.ItemIndex = 1 then
poss := 'com1';
if Edit_poss.ItemIndex = 2 then
poss := 'com2';
if Edit_poss.ItemIndex = 3 then
poss := 'com3';
if Edit_poss.ItemIndex = 4 then
poss := 'com4';
AssignFile(MyFile, poss);
Rewrite(MyFile);
Writeln(MyFile, Edit2.text);
CloseFile(MyFile);
if Edit_poss.ItemIndex = 0 then
poss := 'lpt1';
if Edit_poss.ItemIndex = 1 then
poss := 'com1';
if Edit_poss.ItemIndex = 2 then
poss := 'com2';
if Edit_poss.ItemIndex = 3 then
poss := 'com3';
if Edit_poss.ItemIndex = 4 then
poss := 'com4';
AssignFile(MyFile, poss);
Rewrite(MyFile);
Writeln(MyFile, Edit2.text);
CloseFile(MyFile);