详细代码如下
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, ExtDlgs, Buttons,StrUtils, OleCtrls,
POS01Lib_TLB;
type
TForm4 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
DriveComboBox1: TDriveComboBox;
Button7: TButton;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Edit7: TEdit;
Label8: TLabel;
Edit8: TEdit;
Label9: TLabel;
Edit9: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Label10: TLabel;
Edit10: TEdit;
Label11: TLabel;
Label12: TLabel;
Edit11: TEdit;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Edit36: TEdit;
Edit37: TEdit;
Edit38: TEdit;
Edit39: TEdit;
Edit40: TEdit;
Edit41: TEdit;
Edit42: TEdit;
Edit43: TEdit;
Edit44: TEdit;
Edit45: TEdit;
Edit46: TEdit;
Edit47: TEdit;
Edit48: TEdit;
Edit49: TEdit;
Edit50: TEdit;
Edit51: TEdit;
Edit52: TEdit;
Edit53: TEdit;
Edit54: TEdit;
Edit55: TEdit;
Edit56: TEdit;
Edit57: TEdit;
Edit58: TEdit;
Edit59: TEdit;
Edit60: TEdit;
Edit61: TEdit;
Edit62: TEdit;
Edit63: TEdit;
Edit64: TEdit;
Edit65: TEdit;
Edit66: TEdit;
Edit67: TEdit;
Label29: TLabel;
Edit68: TEdit;
Edit69: TEdit;
Edit70: TEdit;
Edit71: TEdit;
Edit72: TEdit;
Edit73: TEdit;
Edit74: TEdit;
Edit75: TEdit;
Edit76: TEdit;
Edit77: TEdit;
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;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
dlgOpenPic1: TOpenPictureDialog;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DriveComboBox2: TDriveComboBox;
BitBtn4: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if dlgOpenPic1.Execute then
begin
if (ExtractFileExt(dlgOpenPic1.Files[0]) = '.BMP') OR (ExtractFileExt(dlgOpenPic1.Files[0]) = '.bmp') THEN
Edit2.Text :=dlgOpenPic1.FileName
else ShowMessage('请选择一个正确的BMP文件');
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
if dlgOpenPic1.Execute then
begin
if (ExtractFileExt(dlgOpenPic1.Files[0]) = '.BMP') OR (ExtractFileExt(dlgOpenPic1.Files[0]) = '.bmp') THEN
Edit3.Text :=dlgOpenPic1.FileName
else ShowMessage('请选择一个正确的BMP文件');
end;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
If Form1.POS011.DevComPortOpen = 1 Then
begin
Form1.POS011.DevProBootText := edit1.Text;
Form1.POS011.DevProLogoPicFile := edit2.Text;
Form1.POS011.DevProHotlinePicFile := edit3.Text;
Form1.POS011.DevNumber :=StrToInt(Form1.Edit18.Text);
Form1.POS011.DevProWriteLogoPicAndText;
case form1.POS011.OperatingResults of
0:ShowMessage('设定logo图片及开机文字成功!');
40:ShowMessage('logo图片图片文件不存在!');
41:ShowMessage('logo图片文件格式错误,正确文件为黑白两像素的128*32的图片文件!');
42:ShowMessage('咨询热线图片图片文件不存在!');
43:ShowMessage('咨询热线图片文件格式错误,正确文件为黑白两像素的128*64的图片文件!');
else
ShowMessage('设备通讯不通!错误代码:'+inttostr(Form1.POS011.OperatingResults));
end;
end
Else
ShowMessage('端口未打开!');
end;
procedure TForm4.Button7Click(Sender: TObject);
begin
Form1.POS011.DevProBootText := edit1.Text;
Form1.POS011.DevProLogoPicFile := edit2.Text;
Form1.POS011.DevProHotlinePicFile := edit3.Text;
Form1.POS011.DevDriverStr := LeftStr(DriveComboBox1.Text,2);
Form1.POS011.DevProWriteLogoPicAndTextToDisk;
case form1.POS011.OperatingResults of
0:ShowMessage('写logo图片及开机文字到U盘成功!');
40:ShowMessage('logo图片图片文件不存在!');
41:ShowMessage('logo图片文件格式错误,正确文件为黑白两像素的128*32的图片文件!');
42:ShowMessage('咨询热线图片图片文件不存在!');
43:ShowMessage('咨询热线图片文件格式错误,正确文件为黑白两像素的128*64的图片文件!');
else
ShowMessage('写logo图片及开机文字到U盘失败!错误代码:'+inttostr(Form1.POS011.OperatingResults));
end;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
If Form1.POS011.DevComPortOpen = 1 Then
begin
Form1.POS011.DevNumber :=StrToInt(Form1.Edit18.Text);
Form1.POS011.DevProRead;
If Form1.POS011.OperatingResults = 0 Then
begin
edit4.Text := Form1.POS011.DevProAdminPwdStr; //'设备管理员密码
edit5.Text := IntToStr(Form1.POS011.DevProUnitCode); //'单位代码
If Form1.POS011.DevProClassBit0 > 0 Then CheckBox3.Checked :=True else CheckBox3.Checked :=False; //'使用权限规则1
If Form1.POS011.DevProClassBit1 > 0 Then CheckBox4.Checked :=True else CheckBox4.Checked :=False; //'使用权限规则2
If Form1.POS011.DevProClassBit2 > 0 Then CheckBox5.Checked :=True else CheckBox5.Checked :=False; //'使用权限规则3
If Form1.POS011.DevProClassBit3 > 0 Then CheckBox6.Checked :=True else CheckBox6.Checked :=False; //'使用权限规则4
If Form1.POS011.DevProClassBit4 > 0 Then CheckBox7.Checked :=True else CheckBox7.Checked :=False; //'使用权限规则5
If Form1.POS011.DevProClassBit5 > 0 Then CheckBox8.Checked :=True else CheckBox8.Checked :=False; //'使用权限规则6
If Form1.POS011.DevProClassBit6 > 0 Then CheckBox9.Checked :=True else CheckBox9.Checked :=False; //'使用权限规则7
If Form1.POS011.DevProClassBit7 > 0 Then CheckBox10.Checked :=True else CheckBox10.Checked :=False; //'使用权限规则8
edit6.Text := IntToStr(Form1.POS011.DevProMoneyMax); // '卡内允许最大金额
edit7.Text := IntToStr(Form1.POS011.DevProMoneyMin); // '卡内允许最小金额
edit8.Text := IntToStr(Form1.POS011.DevProMoneyAlert); // '卡内最小报警金额
edit9.Text := IntToStr(Form1.POS011.DevProKeyEnterMax);// '键盘输入最高限额
edit11.Text := IntToStr(Form1.POS011.DevProSameCardInterval); //'相同卡最小间隔
//'早餐起止时间
edit12.Text := IntToStr(Form1.POS011.DevProMealTime1StartH);
edit16.Text := IntToStr(Form1.POS011.DevProMealTime1StartM);
edit20.Text := IntToStr(Form1.POS011.DevProMealTime1StopH);
edit24.Text := IntToStr(Form1.POS011.DevProMealTime1StopM);
//'午餐起止时间
edit13.Text := IntToStr(Form1.POS011.DevProMealTime2StartH);
edit17.Text := IntToStr(Form1.POS011.DevProMealTime2StartM);
edit21.Text := IntToStr(Form1.POS011.DevProMealTime2StopH);
edit25.Text := IntToStr(Form1.POS011.DevProMealTime2StopM);
//'晚餐起止时间
edit14.Text := IntToStr(Form1.POS011.DevProMealTime3StartH);
edit18.Text := IntToStr(Form1.POS011.DevProMealTime3StartM);
edit22.Text := IntToStr(Form1.POS011.DevProMealTime3StopH);
edit26.Text := IntToStr(Form1.POS011.DevProMealTime3StopM);
//'夜宵起止时间
edit15.Text := IntToStr(Form1.POS011.DevProMealTime4StartH);
edit19.Text := IntToStr(Form1.POS011.DevProMealTime4StartM);
edit23.Text := IntToStr(Form1.POS011.DevProMealTime4StopH);
edit27.Text := IntToStr(Form1.POS011.DevProMealTime4StopM);
edit28.Text := IntToStr(Form1.POS011.DevProMealMoney1Max); // '早餐最高限额
edit29.Text := IntToStr(Form1.POS011.DevProMealMoney2Max); // '午餐最高限额
edit30.Text := IntToStr(Form1.POS011.DevProMealMoney3Max); //'晚餐最高限额
edit31.Text := IntToStr(Form1.POS011.DevProMealMoney4Max); //'夜宵最高限额
edit32.Text := IntToStr(Form1.POS011.DevProMealTimes1Max); //'早餐最高限次
edit33.Text := IntToStr(Form1.POS011.DevProMealTimes2Max); //'午餐最高限次
edit34.Text := IntToStr(Form1.POS011.DevProMealTimes3Max); //'晚餐最高限次
edit35.Text := IntToStr(Form1.POS011.DevProMealTimes4Max); //'夜宵最高限次
If Form1.POS011.DevProConsAddToMeal > 0 Then CheckBox1.Checked :=True else CheckBox1.Checked :=False; //'每餐累计
If Form1.POS011.DevProConsAddToDay > 0 Then CheckBox2.Checked :=True else CheckBox2.Checked :=False; //'每天累计
edit10.Text := IntToStr(Form1.POS011.DevProConsMode); //'消费模式
edit36.Text := IntToStr(Form1.POS011.DevProClass0QuotaMoney1); // '卡类别0早餐定额
edit37.Text := IntToStr(Form1.POS011.DevProClass0QuotaMoney2); // '卡类别0午餐定额
edit38.Text := IntToStr(Form1.POS011.DevProClass0QuotaMoney3); // '卡类别0晚餐定额
edit39.Text := IntToStr(Form1.POS011.DevProClass0QuotaMoney4); // '卡类别0夜宵定额
edit40.Text := IntToStr(Form1.POS011.DevProClass1QuotaMoney1); // '卡类别1早餐定额
edit41.Text := IntToStr(Form1.POS011.DevProClass1QuotaMoney2); // '卡类别1午餐定额
edit42.Text := IntToStr(Form1.POS011.DevProClass1QuotaMoney3); // '卡类别1晚餐定额
edit43.Text := IntToStr(Form1.POS011.DevProClass1QuotaMoney4); // '卡类别1夜宵定额
edit44.Text := IntToStr(Form1.POS011.DevProClass2QuotaMoney1); // '卡类别2早餐定额
edit45.Text := IntToStr(Form1.POS011.DevProClass2QuotaMoney2); // '卡类别2午餐定额
edit46.Text := IntToStr(Form1.POS011.DevProClass2QuotaMoney3); // '卡类别2晚餐定额
edit47.Text := IntToStr(Form1.POS011.DevProClass2QuotaMoney4); // '卡类别2夜宵定额
edit48.Text := IntToStr(Form1.POS011.DevProClass3QuotaMoney1); // '卡类别3早餐定额
edit49.Text := IntToStr(Form1.POS011.DevProClass3QuotaMoney2); // '卡类别3午餐定额
edit50.Text := IntToStr(Form1.POS011.DevProClass3QuotaMoney3); // '卡类别3晚餐定额
edit51.Text := IntToStr(Form1.POS011.DevProClass3QuotaMoney4); // '卡类别3夜宵定额
edit52.Text := IntToStr(Form1.POS011.DevProClass4QuotaMoney1); // '卡类别4早餐定额
edit53.Text := IntToStr(Form1.POS011.DevProClass4QuotaMoney2); // '卡类别4午餐定额
edit54.Text := IntToStr(Form1.POS011.DevProClass4QuotaMoney3); // '卡类别4晚餐定额
edit55.Text := IntToStr(Form1.POS011.DevProClass4QuotaMoney4); // '卡类别4夜宵定额
edit56.Text := IntToStr(Form1.POS011.DevProClass5QuotaMoney1); // '卡类别5早餐定额
edit57.Text := IntToStr(Form1.POS011.DevProClass5QuotaMoney2); // '卡类别5午餐定额
edit58.Text := IntToStr(Form1.POS011.DevProClass5QuotaMoney3); // '卡类别5晚餐定额
edit59.Text := IntToStr(Form1.POS011.DevProClass5QuotaMoney4); // '卡类别5夜宵定额
edit60.Text := IntToStr(Form1.POS011.DevProClass6QuotaMoney1); // '卡类别6早餐定额
edit61.Text := IntToStr(Form1.POS011.DevProClass6QuotaMoney2); // '卡类别6午餐定额
edit62.Text := IntToStr(Form1.POS011.DevProClass6QuotaMoney3); // '卡类别6晚餐定额
edit63.Text := IntToStr(Form1.POS011.DevProClass6QuotaMoney4); // '卡类别6夜宵定额
edit64.Text := IntToStr(Form1.POS011.DevProClass7QuotaMoney1); // '卡类别7早餐定额
edit65.Text := IntToStr(Form1.POS011.DevProClass7QuotaMoney2); // '卡类别7午餐定额
edit66.Text := IntToStr(Form1.POS011.DevProClass7QuotaMoney3); // '卡类别7晚餐定额
edit67.Text := IntToStr(Form1.POS011.DevProClass7QuotaMoney4); // '卡类别7夜宵定额
edit77.Text := IntToStr(Form1.POS011.DevProShortcutkey0); // '快捷键0数值
edit70.Text := IntToStr(Form1.POS011.DevProShortcutkey1); // '快捷键1数值
edit73.Text := IntToStr(Form1.POS011.DevProShortcutkey2); // '快捷键2数值
edit76.Text := IntToStr(Form1.POS011.DevProShortcutkey3); // '快捷键3数值
edit69.Text := IntToStr(Form1.POS011.DevProShortcutkey4); // '快捷键4数值
edit72.Text := IntToStr(Form1.POS011.DevProShortcutkey5); // '快捷键5数值
edit75.Text := IntToStr(Form1.POS011.DevProShortcutkey6); // '快捷键6数值
edit68.Text := IntToStr(Form1.POS011.DevProShortcutkey7); // '快捷键7数值
edit71.Text := IntToStr(Form1.POS011.DevProShortcutkey8); // '快捷键8数值
edit74.Text := IntToStr(Form1.POS011.DevProShortcutkey9); // '快捷键9数值
ShowMessage('读取属性成功');
end
else
ShowMessage('设备通讯不通');
end
else
ShowMessage('端口未打开!');
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
begin
If Form1.POS011.DevComPortOpen = 1 Then
begin
Form1.POS011.DevNumber :=StrToInt(Form1.Edit18.Text);
Form1.POS011.DevProAdminPwdStr:=edit4.Text; //'设备管理员密码
Form1.POS011.DevProUnitCode:=StrToInt(edit5.Text) ; //'单位代码
If CheckBox3.Checked =True then Form1.POS011.DevProClassBit0 :=1 else Form1.POS011.DevProClassBit0 :=0 ; //'使用权限规则1
If CheckBox4.Checked =True then Form1.POS011.DevProClassBit1 :=1 else Form1.POS011.DevProClassBit1 :=0; //'使用权限规则2
If CheckBox5.Checked =True then Form1.POS011.DevProClassBit2 :=1 else Form1.POS011.DevProClassBit2:=0; //'使用权限规则3
If CheckBox6.Checked =True then Form1.POS011.DevProClassBit3 :=1 else Form1.POS011.DevProClassBit3:=0; //'使用权限规则4
If CheckBox7.Checked =True then Form1.POS011.DevProClassBit4 :=1 else Form1.POS011.DevProClassBit4:=0; //'使用权限规则5
If CheckBox8.Checked =True then Form1.POS011.DevProClassBit5 :=1 else Form1.POS011.DevProClassBit5:=0; //'使用权限规则6
If CheckBox9.Checked =True then Form1.POS011.DevProClassBit6 :=1 else Form1.POS011.DevProClassBit6:=0; //'使用权限规则7
If CheckBox10.Checked =True then Form1.POS011.DevProClassBit7 :=1 else Form1.POS011.DevProClassBit7:=0; //'使用权限规则8
Form1.POS011.DevProMoneyMax:=StrToInt(edit6.Text); // '卡内允许最大金额
Form1.POS011.DevProMoneyMin:=StrToInt(edit7.Text); // '卡内允许最小金额
Form1.POS011.DevProMoneyAlert:=StrToInt(edit8.Text); // '卡内最小报警金额
Form1.POS011.DevProKeyEnterMax:=StrToInt(edit9.Text);// '键盘输入最高限额
Form1.POS011.DevProSameCardInterval:=StrToInt(edit11.Text); //'相同卡最小间隔
//'早餐起止时间
Form1.POS011.DevProMealTime1StartH:=StrToInt(edit12.Text);
Form1.POS011.DevProMealTime1StartM:=StrToInt(edit16.Text);
Form1.POS011.DevProMealTime1StopH:=StrToInt(edit20.Text);
Form1.POS011.DevProMealTime1StopM:=StrToInt(edit24.Text);
//'午餐起止时间
Form1.POS011.DevProMealTime2StartH:=StrToInt(edit13.Text);
Form1.POS011.DevProMealTime2StartM:=StrToInt(edit17.Text);
Form1.POS011.DevProMealTime2StopH:=StrToInt(edit21.Text);
Form1.POS011.DevProMealTime2StopM:=StrToInt(edit25.Text);
//'晚餐起止时间
Form1.POS011.DevProMealTime3StartH:=StrToInt(edit14.Text);
Form1.POS011.DevProMealTime3StartM:=StrToInt(edit18.Text);
Form1.POS011.DevProMealTime3StopH:=StrToInt(edit22.Text);
Form1.POS011.DevProMealTime3StopM:=StrToInt(edit26.Text);
//'夜宵起止时间
Form1.POS011.DevProMealTime4StartH:=StrToInt(edit15.Text);
Form1.POS011.DevProMealTime4StartM:=StrToInt(edit19.Text);
Form1.POS011.DevProMealTime4StopH:=StrToInt(edit23.Text);
Form1.POS011.DevProMealTime4StopM:=StrToInt(edit27.Text);
Form1.POS011.DevProMealMoney1Max:=StrToInt(edit28.Text); // '早餐最高限额
Form1.POS011.DevProMealMoney2Max:=StrToInt(edit29.Text); // '午餐最高限额
Form1.POS011.DevProMealMoney3Max:=StrToInt(edit30.Text); //'晚餐最高限额
Form1.POS011.DevProMealMoney4Max:=StrToInt(edit31.Text); //'夜宵最高限额
Form1.POS011.DevProMealTimes1Max:=StrToInt(edit32.Text); //'早餐最高限次
Form1.POS011.DevProMealTimes2Max:=StrToInt(edit33.Text); //'午餐最高限次
Form1.POS011.DevProMealTimes3Max:=StrToInt(edit34.Text); //'晚餐最高限次
Form1.POS011.DevProMealTimes4Max:=StrToInt(edit35.Text); //'夜宵最高限次
If CheckBox1.Checked =True then Form1.POS011.DevProConsAddToMeal :=1 else Form1.POS011.DevProConsAddToMeal:=0; //'每餐累计
If CheckBox2.Checked =True then Form1.POS011.DevProConsAddToDay :=1 else Form1.POS011.DevProConsAddToDay:=0; //'每天累计
Form1.POS011.DevProConsMode:=StrToInt(edit10.Text); //'消费模式
Form1.POS011.DevProClass0QuotaMoney1:=StrToInt(edit36.Text); // '卡类别0早餐定额
Form1.POS011.DevProClass0QuotaMoney2:=StrToInt(edit37.Text); // '卡类别0午餐定额
Form1.POS011.DevProClass0QuotaMoney3:=StrToInt(edit38.Text); // '卡类别0晚餐定额
Form1.POS011.DevProClass0QuotaMoney4:=StrToInt(edit39.Text); // '卡类别0夜宵定额
Form1.POS011.DevProClass1QuotaMoney1:=StrToInt(edit40.Text); // '卡类别1早餐定额
Form1.POS011.DevProClass1QuotaMoney2:=StrToInt(edit41.Text); // '卡类别1午餐定额
Form1.POS011.DevProClass1QuotaMoney3:=StrToInt(edit42.Text); // '卡类别1晚餐定额
Form1.POS011.DevProClass1QuotaMoney4:=StrToInt(edit43.Text); // '卡类别1夜宵定额
Form1.POS011.DevProClass2QuotaMoney1:=StrToInt(edit44.Text); // '卡类别2早餐定额
Form1.POS011.DevProClass2QuotaMoney2:=StrToInt(edit45.Text); // '卡类别2午餐定额
Form1.POS011.DevProClass2QuotaMoney3:=StrToInt(edit46.Text); // '卡类别2晚餐定额
Form1.POS011.DevProClass2QuotaMoney4:=StrToInt(edit47.Text); // '卡类别2夜宵定额
Form1.POS011.DevProClass3QuotaMoney1:=StrToInt(edit48.Text); // '卡类别3早餐定额
Form1.POS011.DevProClass3QuotaMoney2:=StrToInt(edit49.Text); // '卡类别3午餐定额
Form1.POS011.DevProClass3QuotaMoney3:=StrToInt(edit50.Text); // '卡类别3晚餐定额
Form1.POS011.DevProClass3QuotaMoney4:=StrToInt(edit51.Text); // '卡类别3夜宵定额
Form1.POS011.DevProClass4QuotaMoney1:=StrToInt(edit52.Text); // '卡类别4早餐定额
Form1.POS011.DevProClass4QuotaMoney2:=StrToInt(edit53.Text); // '卡类别4午餐定额
Form1.POS011.DevProClass4QuotaMoney3:=StrToInt(edit54.Text); // '卡类别4晚餐定额
Form1.POS011.DevProClass4QuotaMoney4:=StrToInt(edit55.Text); // '卡类别4夜宵定额
Form1.POS011.DevProClass5QuotaMoney1:=StrToInt(edit56.Text); // '卡类别5早餐定额
Form1.POS011.DevProClass5QuotaMoney2:=StrToInt(edit57.Text); // '卡类别5午餐定额
Form1.POS011.DevProClass5QuotaMoney3:=StrToInt(edit58.Text); // '卡类别5晚餐定额
Form1.POS011.DevProClass5QuotaMoney4:=StrToInt(edit59.Text); // '卡类别5夜宵定额
Form1.POS011.DevProClass6QuotaMoney1:=StrToInt(edit60.Text); // '卡类别6早餐定额
Form1.POS011.DevProClass6QuotaMoney2:=StrToInt(edit61.Text); // '卡类别6午餐定额
Form1.POS011.DevProClass6QuotaMoney3:=StrToInt(edit62.Text); // '卡类别6晚餐定额
Form1.POS011.DevProClass6QuotaMoney4:=StrToInt(edit63.Text); // '卡类别6夜宵定额
Form1.POS011.DevProClass7QuotaMoney1:=StrToInt(edit64.Text); // '卡类别7早餐定额
Form1.POS011.DevProClass7QuotaMoney2:=StrToInt(edit65.Text); // '卡类别7午餐定额
Form1.POS011.DevProClass7QuotaMoney3:=StrToInt(edit66.Text); // '卡类别7晚餐定额
Form1.POS011.DevProClass7QuotaMoney4:=StrToInt(edit67.Text); // '卡类别7夜宵定额
Form1.POS011.DevProShortcutkey0:=StrToInt(edit77.Text); // '快捷键0数值
Form1.POS011.DevProShortcutkey1:=StrToInt(edit70.Text); // '快捷键1数值
Form1.POS011.DevProShortcutkey2:=StrToInt(edit73.Text); // '快捷键2数值
Form1.POS011.DevProShortcutkey3:=StrToInt(edit76.Text); // '快捷键3数值
Form1.POS011.DevProShortcutkey4:=StrToInt(edit69.Text); // '快捷键4数值
Form1.POS011.DevProShortcutkey5:=StrToInt(edit72.Text); // '快捷键5数值
Form1.POS011.DevProShortcutkey6:=StrToInt(edit75.Text); // '快捷键6数值
Form1.POS011.DevProShortcutkey7:=StrToInt(edit68.Text); // '快捷键7数值
Form1.POS011.DevProShortcutkey8:=StrToInt(edit71.Text); // '快捷键8数值
Form1.POS011.DevProShortcutkey9:=StrToInt(edit74.Text); // '快捷键9数值
Form1.POS011.DevProWrite ;
If Form1.POS011.OperatingResults = 0 Then
ShowMessage('写设备属性成功!')
Else
ShowMessage('设备通讯不通!');
end
else
ShowMessage('端口未打开!');
end;
procedure TForm4.BitBtn4Click(Sender: TObject);
begin
Form1.POS011.DevProAdminPwdStr:=edit4.Text; //'设备管理员密码
Form1.POS011.DevProUnitCode:=StrToInt(edit5.Text) ; //'单位代码
If CheckBox3.Checked =True then Form1.POS011.DevProClassBit0 :=1 else Form1.POS011.DevProClassBit0 :=0 ; //'使用权限规则1
If CheckBox4.Checked =True then Form1.POS011.DevProClassBit1 :=1 else Form1.POS011.DevProClassBit1 :=0; //'使用权限规则2
If CheckBox5.Checked =True then Form1.POS011.DevProClassBit2 :=1 else Form1.POS011.DevProClassBit2:=0; //'使用权限规则3
If CheckBox6.Checked =True then Form1.POS011.DevProClassBit3 :=1 else Form1.POS011.DevProClassBit3:=0; //'使用权限规则4
If CheckBox7.Checked =True then Form1.POS011.DevProClassBit4 :=1 else Form1.POS011.DevProClassBit4:=0; //'使用权限规则5
If CheckBox8.Checked =True then Form1.POS011.DevProClassBit5 :=1 else Form1.POS011.DevProClassBit5:=0; //'使用权限规则6
If CheckBox9.Checked =True then Form1.POS011.DevProClassBit6 :=1 else Form1.POS011.DevProClassBit6:=0; //'使用权限规则7
If CheckBox10.Checked =True then Form1.POS011.DevProClassBit7 :=1 else Form1.POS011.DevProClassBit7:=0; //'使用权限规则8
Form1.POS011.DevProMoneyMax:=StrToInt(edit6.Text); // '卡内允许最大金额
Form1.POS011.DevProMoneyMin:=StrToInt(edit7.Text); // '卡内允许最小金额
Form1.POS011.DevProMoneyAlert:=StrToInt(edit8.Text); // '卡内最小报警金额
Form1.POS011.DevProKeyEnterMax:=StrToInt(edit9.Text);// '键盘输入最高限额
Form1.POS011.DevProSameCardInterval:=StrToInt(edit11.Text); //'相同卡最小间隔
//'早餐起止时间
Form1.POS011.DevProMealTime1StartH:=StrToInt(edit12.Text);
Form1.POS011.DevProMealTime1StartM:=StrToInt(edit16.Text);
Form1.POS011.DevProMealTime1StopH:=StrToInt(edit20.Text);
Form1.POS011.DevProMealTime1StopM:=StrToInt(edit24.Text);
//'午餐起止时间
Form1.POS011.DevProMealTime2StartH:=StrToInt(edit13.Text);
Form1.POS011.DevProMealTime2StartM:=StrToInt(edit17.Text);
Form1.POS011.DevProMealTime2StopH:=StrToInt(edit21.Text);
Form1.POS011.DevProMealTime2StopM:=StrToInt(edit25.Text);
//'晚餐起止时间
Form1.POS011.DevProMealTime3StartH:=StrToInt(edit14.Text);
Form1.POS011.DevProMealTime3StartM:=StrToInt(edit18.Text);
Form1.POS011.DevProMealTime3StopH:=StrToInt(edit22.Text);
Form1.POS011.DevProMealTime3StopM:=StrToInt(edit26.Text);
//'夜宵起止时间
Form1.POS011.DevProMealTime4StartH:=StrToInt(edit15.Text);
Form1.POS011.DevProMealTime4StartM:=StrToInt(edit19.Text);
Form1.POS011.DevProMealTime4StopH:=StrToInt(edit23.Text);
Form1.POS011.DevProMealTime4StopM:=StrToInt(edit27.Text);
Form1.POS011.DevProMealMoney1Max:=StrToInt(edit28.Text); // '早餐最高限额
Form1.POS011.DevProMealMoney2Max:=StrToInt(edit29.Text); // '午餐最高限额
Form1.POS011.DevProMealMoney3Max:=StrToInt(edit30.Text); //'晚餐最高限额
Form1.POS011.DevProMealMoney4Max:=StrToInt(edit31.Text); //'夜宵最高限额
Form1.POS011.DevProMealTimes1Max:=StrToInt(edit32.Text); //'早餐最高限次
Form1.POS011.DevProMealTimes2Max:=StrToInt(edit33.Text); //'午餐最高限次
Form1.POS011.DevProMealTimes3Max:=StrToInt(edit34.Text); //'晚餐最高限次
Form1.POS011.DevProMealTimes4Max:=StrToInt(edit35.Text); //'夜宵最高限次
If CheckBox1.Checked =True then Form1.POS011.DevProConsAddToMeal :=1 else Form1.POS011.DevProConsAddToMeal:=0; //'每餐累计
If CheckBox2.Checked =True then Form1.POS011.DevProConsAddToDay :=1 else Form1.POS011.DevProConsAddToDay:=0; //'每天累计
Form1.POS011.DevProConsMode:=StrToInt(edit10.Text); //'消费模式
Form1.POS011.DevProClass0QuotaMoney1:=StrToInt(edit36.Text); // '卡类别0早餐定额
Form1.POS011.DevProClass0QuotaMoney2:=StrToInt(edit37.Text); // '卡类别0午餐定额
Form1.POS011.DevProClass0QuotaMoney3:=StrToInt(edit38.Text); // '卡类别0晚餐定额
Form1.POS011.DevProClass0QuotaMoney4:=StrToInt(edit39.Text); // '卡类别0夜宵定额
Form1.POS011.DevProClass1QuotaMoney1:=StrToInt(edit40.Text); // '卡类别1早餐定额
Form1.POS011.DevProClass1QuotaMoney2:=StrToInt(edit41.Text); // '卡类别1午餐定额
Form1.POS011.DevProClass1QuotaMoney3:=StrToInt(edit42.Text); // '卡类别1晚餐定额
Form1.POS011.DevProClass1QuotaMoney4:=StrToInt(edit43.Text); // '卡类别1夜宵定额
Form1.POS011.DevProClass2QuotaMoney1:=StrToInt(edit44.Text); // '卡类别2早餐定额
Form1.POS011.DevProClass2QuotaMoney2:=StrToInt(edit45.Text); // '卡类别2午餐定额
Form1.POS011.DevProClass2QuotaMoney3:=StrToInt(edit46.Text); // '卡类别2晚餐定额
Form1.POS011.DevProClass2QuotaMoney4:=StrToInt(edit47.Text); // '卡类别2夜宵定额
Form1.POS011.DevProClass3QuotaMoney1:=StrToInt(edit48.Text); // '卡类别3早餐定额
Form1.POS011.DevProClass3QuotaMoney2:=StrToInt(edit49.Text); // '卡类别3午餐定额
Form1.POS011.DevProClass3QuotaMoney3:=StrToInt(edit50.Text); // '卡类别3晚餐定额
Form1.POS011.DevProClass3QuotaMoney4:=StrToInt(edit51.Text); // '卡类别3夜宵定额
Form1.POS011.DevProClass4QuotaMoney1:=StrToInt(edit52.Text); // '卡类别4早餐定额
Form1.POS011.DevProClass4QuotaMoney2:=StrToInt(edit53.Text); // '卡类别4午餐定额
Form1.POS011.DevProClass4QuotaMoney3:=StrToInt(edit54.Text); // '卡类别4晚餐定额
Form1.POS011.DevProClass4QuotaMoney4:=StrToInt(edit55.Text); // '卡类别4夜宵定额
Form1.POS011.DevProClass5QuotaMoney1:=StrToInt(edit56.Text); // '卡类别5早餐定额
Form1.POS011.DevProClass5QuotaMoney2:=StrToInt(edit57.Text); // '卡类别5午餐定额
Form1.POS011.DevProClass5QuotaMoney3:=StrToInt(edit58.Text); // '卡类别5晚餐定额
Form1.POS011.DevProClass5QuotaMoney4:=StrToInt(edit59.Text); // '卡类别5夜宵定额
Form1.POS011.DevProClass6QuotaMoney1:=StrToInt(edit60.Text); // '卡类别6早餐定额
Form1.POS011.DevProClass6QuotaMoney2:=StrToInt(edit61.Text); // '卡类别6午餐定额
Form1.POS011.DevProClass6QuotaMoney3:=StrToInt(edit62.Text); // '卡类别6晚餐定额
Form1.POS011.DevProClass6QuotaMoney4:=StrToInt(edit63.Text); // '卡类别6夜宵定额
Form1.POS011.DevProClass7QuotaMoney1:=StrToInt(edit64.Text); // '卡类别7早餐定额
Form1.POS011.DevProClass7QuotaMoney2:=StrToInt(edit65.Text); // '卡类别7午餐定额
Form1.POS011.DevProClass7QuotaMoney3:=StrToInt(edit66.Text); // '卡类别7晚餐定额
Form1.POS011.DevProClass7QuotaMoney4:=StrToInt(edit67.Text); // '卡类别7夜宵定额
Form1.POS011.DevProShortcutkey0:=StrToInt(edit77.Text); // '快捷键0数值
Form1.POS011.DevProShortcutkey1:=StrToInt(edit70.Text); // '快捷键1数值
Form1.POS011.DevProShortcutkey2:=StrToInt(edit73.Text); // '快捷键2数值
Form1.POS011.DevProShortcutkey3:=StrToInt(edit76.Text); // '快捷键3数值
Form1.POS011.DevProShortcutkey4:=StrToInt(edit69.Text); // '快捷键4数值
Form1.POS011.DevProShortcutkey5:=StrToInt(edit72.Text); // '快捷键5数值
Form1.POS011.DevProShortcutkey6:=StrToInt(edit75.Text); // '快捷键6数值
Form1.POS011.DevProShortcutkey7:=StrToInt(edit68.Text); // '快捷键7数值
Form1.POS011.DevProShortcutkey8:=StrToInt(edit71.Text); // '快捷键8数值
Form1.POS011.DevProShortcutkey9:=StrToInt(edit74.Text); // '快捷键9数值
Form1.POS011.DevDriverStr := LeftStr(DriveComboBox2.Text,2);
Form1.POS011.DevProWriteToDisk;
If Form1.POS011.OperatingResults = 0 Then
ShowMessage('写设备属性到U盘成功!')
Else
ShowMessage('写设备属性到U盘失败!');
end;
end.