printsetupunt.pas

商品销售系统完全的功能SQL和JAVA

unit printsetupunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons;

type
  Tprintsetupfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    UpDown1: TUpDown;
    wedit: TEdit;
    hedit: TEdit;
    UpDown2: TUpDown;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    UpDown3: TUpDown;
    Label10: TLabel;
    Edit4: TEdit;
    UpDown4: TUpDown;
    Label11: TLabel;
    Label12: TLabel;
    Edit5: TEdit;
    UpDown5: TUpDown;
    Label13: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label14: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edit8: TEdit;
    Label17: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Edit11: TEdit;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Edit12: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit8Enter(Sender: TObject);
    procedure Edit8Exit(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
    procedure Edit6Enter(Sender: TObject);
    procedure Edit9Enter(Sender: TObject);
    procedure Edit9Exit(Sender: TObject);
    procedure Edit10Exit(Sender: TObject);
    procedure Edit10Enter(Sender: TObject);
    procedure Edit7Enter(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure Edit11Exit(Sender: TObject);
    procedure Edit11Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printsetupfrm: Tprintsetupfrm;

implementation
  uses maind;

{$R *.dfm}

procedure Tprintsetupfrm.BitBtn1Click(Sender: TObject);
var
width,heigth,left,right,chink:integer;
begin
width:=strtoint(wedit.Text);
heigth:=strtoint(hedit.Text);
left:=strtoint(edit4.Text);
right:=strtoint(edit5.Text);
chink:=strtoint(edit3.Text);
if ini_save_print('打印参数',width,heigth,left,right,chink,combobox1.Text,trim(edit1.Text),trim(edit2.Text),trim(edit8.Text),trim(edit6.Text),trim(edit9.Text),trim(edit7.Text),trim(edit10.Text),trim(edit11.Text),trim(edit12.Text))=false then
  showmessage('没有设置成功!')
else
  showmessage('设置成功!');
end;

procedure Tprintsetupfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tprintsetupfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
printsetupfrm:=nil;
printsetupfrm.Free;
end;

procedure Tprintsetupfrm.FormActivate(Sender: TObject);
begin
wedit.text:=inttostr(ini_load_width('打印参数',0));
hedit.text:=inttostr(ini_load_heigth('打印参数',0));
edit4.Text:=inttostr(ini_load_left('打印参数',0));
edit5.Text:=inttostr(ini_load_rigth('打印参数',0));
edit3.Text:=inttostr(ini_load_chink('打印参数',0));
combobox1.Text:=ini_load_font('打印参数','宋体');
edit1.Text :=ini_load_title('打印参数','牧羊人服饰');
edit2.Text:=ini_load_footer('打印参数','牧羊人服饰');
edit8.Text:=ini_load_addr1('打印参数','牧羊人服饰');
edit6.Text:=ini_load_tel1('打印参数','0592-5173461');
edit9.Text:=ini_load_addr2('打印参数','牧羊人服饰');
edit7.Text:=ini_load_tel2('打印参数','0592-5173461');
edit10.Text:=ini_load_addr3('打印参数','牧羊人服饰');
edit11.Text:=ini_load_tel3('打印参数','0592-5173461');
edit12.Text:=ini_load_shopname('打印参数','和祥店');
end;

procedure Tprintsetupfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tprintsetupfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit2Enter(Sender: TObject);
begin
 Edit2.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit2Exit(Sender: TObject);
begin
 Edit2.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit8Enter(Sender: TObject);
begin
Edit8.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit8Exit(Sender: TObject);
begin
Edit8.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit6Exit(Sender: TObject);
begin
Edit6.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit6Enter(Sender: TObject);
begin
Edit6.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit9Enter(Sender: TObject);
begin
Edit9.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit9Exit(Sender: TObject);
begin
Edit9.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit10Exit(Sender: TObject);
begin
Edit10.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit10Enter(Sender: TObject);
begin
Edit10.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit7Enter(Sender: TObject);
begin
Edit7.Color:=clSkyBlue;
end;

procedure Tprintsetupfrm.Edit7Exit(Sender: TObject);
begin
Edit7.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit11Exit(Sender: TObject);
begin
Edit11.color:=clWindow;
end;

procedure Tprintsetupfrm.Edit11Enter(Sender: TObject);
begin
Edit11.Color:=clSkyBlue;
end;

end.