title.pas

一个delphi开发的库存管理系统源代码

unit title;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles, vks;

type
  Tftitle = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    t1: TEdit;
    Label3: TLabel;
    f1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    s1: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    c1: TEdit;
    Label8: TLabel;
    c2: TEdit;
    Label9: TLabel;
    c3: TEdit;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label11: TLabel;
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure f1KeyPress(Sender: TObject; var Key: Char);
    procedure s1KeyPress(Sender: TObject; var Key: Char);
    procedure c1KeyPress(Sender: TObject; var Key: Char);
    procedure c2KeyPress(Sender: TObject; var Key: Char);
    procedure c3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure s1Exit(Sender: TObject);
    procedure c1Exit(Sender: TObject);
    procedure c2Exit(Sender: TObject);
    procedure c3Exit(Sender: TObject);
  private
    //function checknum(cnum: string):boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ftitle: Tftitle;

implementation

{$R *.dfm}

procedure Tftitle.t1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then f1.SetFocus;
end;

procedure Tftitle.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure Tftitle.f1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then s1.SetFocus;
end;

procedure Tftitle.s1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then c1.SetFocus else if strtoint(s1.Text)>72 then s1.Text := '72';
end;

procedure Tftitle.c1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then c2.SetFocus else if not (key in ['0'..'9',#8]) then key:=#0;
end;

procedure Tftitle.c2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then c3.SetFocus else if not (key in ['0'..'9',#8]) then key:=#0;
end;

procedure Tftitle.c3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Button1Click(Sender) else if not (key in ['0'..'9',#8]) then key:=#0;
end;

procedure Tftitle.Button1Click(Sender: TObject);
var
  myini : TIniFile;
  i     : integer;
  cstr  : array [1..4] of string;
begin
  try
    myini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'inc\set.ini');
    myini.WriteString('config','title',t1.Text);
    myini.WriteString('config','name',f1.Text);
    if s1.Text='' then cstr[1]:='18' else cstr[1]:=s1.Text;
    myini.WriteString('config','size',cstr[1]);
    if c1.Text='' then cstr[2] := '0' else cstr[2]:=c1.Text;
    if c2.Text='' then cstr[3] := '0' else cstr[3]:=c2.Text;
    if c3.Text='' then cstr[4] := '0' else cstr[4]:=c3.Text;
    myini.WriteString('config','color',cstr[2]+','+cstr[3]+','+cstr[4]);
    myini.Free;
    vks.info(1106);
    close;
  except
    vks.info(1026);
  end;
end;

procedure Tftitle.FormShow(Sender: TObject);
var
  myini : TIniFile;
  sa    : tstringlist;
  cstr  : string;
begin
  myini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'inc\set.ini');
  t1.Text := myini.ReadString('config','title','');
  f1.Text := myini.ReadString('config','name','');
  s1.Text := myini.ReadString('config','size','');
  cstr := myini.ReadString('config','color','');
  myini.Free;
  if cstr<>'' then
  begin
    sa := TStringList.Create;
    sa := vks.split(cstr,',');
    c1.Text := sa.Strings[0];
    c2.Text := sa.Strings[1];
    c3.Text := sa.Strings[2];
  end;
end;

procedure Tftitle.s1Exit(Sender: TObject);
begin
  if strtoint(s1.Text)>72 then s1.Text := '72';
end;

procedure Tftitle.c1Exit(Sender: TObject);
begin
  if strtoint(c1.Text)>255 then c1.Text := '255';
end;

procedure Tftitle.c2Exit(Sender: TObject);
begin
  if strtoint(c2.Text)>255 then c2.Text := '255';
end;

procedure Tftitle.c3Exit(Sender: TObject);
begin
  if strtoint(c3.Text)>255 then c3.Text := '255';
end;

end.