pos消費機Delphi7源代碼（4）

詳細代碼如下

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