company_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit company_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un,IniFiles, bsMessages, bsSkinData, BusinessSkinForm,
  bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls;

type
  Tcompany_frm = class(Tbase_frm)
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  company_frm: Tcompany_frm;

implementation

{$R *.dfm}

procedure Tcompany_frm.FormShow(Sender: TObject);
 var IniFile1: TIniFile;
s:string;
begin
  inherited;
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'info.ini');    //创建一个INI文件
s:=inifile1.ReadString('company','data',s);
bsSkinEdit1.Text:=s;
IniFile1.free;

end;

procedure Tcompany_frm.bsSkinButton1Click(Sender: TObject);
var inifile1:TIniFile;
begin
  inherited;
 try
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'info.ini');    //创建一个INI文件
inifile1.WriteString('company','data',bsSkinEdit1.text);
IniFile1.free;
bsSkinMessage1.MessageDlg('设置成功',mtInformation,[mbyes],0);
except
end;

end;

procedure Tcompany_frm.bsSkinButton2Click(Sender: TObject);
var inifile1:TIniFile;
begin
  inherited;
 try
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'info.ini');    //创建一个INI文件
inifile1.WriteString('company','data',bsSkinEdit1.text);
IniFile1.free;
bsSkinMessage1.MessageDlg('修改成功',mtInformation,[mbyes],0);
 except
end;

end;

procedure Tcompany_frm.bsSkinButton3Click(Sender: TObject);
begin
  inherited;
close;
end;

end.