formregcityp.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

unit FormRegCityP;

interface

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

type
  TFormRegCity = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRegCity: TFormRegCity;

implementation

{$R *.DFM}

procedure TFormRegCity.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TFormRegCity.BitBtn1Click(Sender: TObject);
Var
   Reg:TRegistry;
   RegCity:String;
   UseNum01,UseNum02:Integer;
begin
   If Combobox1.ItemIndex=-1 Then
      Begin
         Application.MessageBox('请选择将要注册的地市公司！','提示',MB_OK+MB_ICONINFORMATION);
         Exit;
      End;
      
   Try
      Reg:=TRegistry.Create;
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      Reg.OpenKey('\software\vipregistr',True);
      RegCity:=Reg.ReadString('RegCity');
      Reg.WriteString('RegCity',IntToStr(Combobox1.ItemIndex+1));
   finally
      Reg.CloseKey;
      Reg.Free;
   end;
   
   Close;

end;

end.