unit_enterprise_manage.~pas

来自「美汇美容网网站管理系统」· ~PAS 代码 · 共 232 行

unit Unit_Enterprise_manage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, XPMenu,Unit_DM;

type
  TForm_Enterprise_Manage = class(TForm)
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    edUserName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    edPassword: TEdit;
    edCheckPassword: TEdit;
    edName: TEdit;
    edPrincipal: TEdit;
    edPhone: TEdit;
    edAddress: TEdit;
    edEmail: TEdit;
    cbbProvince: TComboBox;
    cbbCity: TComboBox;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure cbbProvinceChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure edPhoneKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    manage_type:string;
  end;

var
  Form_Enterprise_Manage: TForm_Enterprise_Manage;

implementation

{$R *.dfm}


function strleft(const tempstr:string;rp:char):string;
var
  i:integer;
  Buffer: array [0..10] of char;
begin
  for i:=0 to length(tempstr) do
    if tempstr[i]=rp then
    begin
       strlcopy(Buffer,pchar(tempstr),i-1);
       break;
    end;
  result:=Buffer;
end;


procedure TForm_Enterprise_Manage.FormCreate(Sender: TObject);
begin
  Self.Left:= Round(Screen.Width/2-Width/2);
  Self.Top :=Round(Screen.Height/2-Height/2);

  {添加省}
  with dm.adods do
  begin
    close;
    commandtext:='select * from enterprise_class';
    Open;
    
    first;
    while not eof do
    begin
      if fieldvalues['iUpNo']=0 then
        cbbProvince.Items.Add(inttostr(fieldvalues['iNo'])+'.'+fieldvalues['vName']);
      next;
    end;
  end;
end;

procedure TForm_Enterprise_Manage.cbbProvinceChange(Sender: TObject);
var
  upClassNo:integer;
begin
   if length(cbbProvince.Text)>3 then
  begin
    upClassNo:=strtoint(strleft(cbbProvince.text,'.'));
    cbbCity.Text:='';
    cbbCity.items.clear;
  {为三级分类下拉框添加分类}
    with dm.adods do
    begin
      first;
      while not eof do
      begin
        if fieldvalues['iUpNo']=upClassNo then
          cbbCity.Items.Add(inttostr(fieldvalues['iNo'])+'.'+fieldvalues['vName']);
        next;
      end;
    end;
    cbbCity.Enabled:=true;
  end;
end;

procedure TForm_Enterprise_Manage.BitBtn2Click(Sender: TObject);
begin
  if length(eduserName.Text)<2 then
  begin
    application.MessageBox('用户名不能少于２个字符.','提示',MB_OK);
    edusername.SetFocus;
    exit;
  end;
  if (manage_type='add')  and (length(edpassword.Text)<6) then
  begin
    application.MessageBox('密码不能少于６个字符.','提示',MB_OK);
    edpassword.SetFocus;
    exit;
  end;

  if edpassword.Text<>edcheckpassword.Text then
  begin
    application.MessageBox('密码与确认密码不一致.','提示',MB_OK);
    edcheckpassword.SelectAll;
    edcheckpassword.SetFocus;
    exit;
  end;

  if length(edname.Text)<1 then
  begin
    application.MessageBox('企业名称不能为空.','提示',MB_OK);
    edname.SetFocus;
    exit;
  end;

  if length(edPrincipal.Text)<1 then
  begin
    application.MessageBox('负责人不能为空.','提示',MB_OK);
    edPrincipal.SetFocus;
    exit;
  end;

  if length(edPhone.Text)<1 then
  begin
    application.MessageBox('电话不能为空.','提示',MB_OK);
    edPhone.SetFocus;
    exit;
  end;

  if length(edAddress.Text)<1 then
  begin
    application.MessageBox('地址不能为空.','提示',MB_OK);
    edAddress.SetFocus;
    exit;
  end;

  if length(cbbprovince.Text)<3 then
  begin
    application.MessageBox('请选择所在省.','提示',MB_OK);
    cbbprovince.SetFocus;
    exit;
  end;

  if length(cbbCity.Text)<3 then
  begin
    application.MessageBox('请选择所在城市.','提示',MB_OK);
    cbbCity.SetFocus;
    exit;
  end;

  with dm.adsEnterprise do
  begin
    if manage_type='add' then
      append
    else
      edit;

    fieldvalues['vUsername']:=edusername.Text;
    if length(edpassword.Text)>1 then
      fieldvalues['vpassword']:=edpassword.Text;
    fieldvalues['vname']:=edname.Text;
    fieldvalues['vPhone']:=edphone.Text;
    fieldvalues['vAddress']:=edAddress.Text;
    fieldvalues['vEmail']:=edemail.Text;
    fieldvalues['vPrin']:=edPrincipal.Text;
    fieldvalues['iProvince']:=strtoint(strleft(cbbProvince.Text,'.'));
    fieldvalues['iCity']:=strtoint(strleft(cbbCity.Text,'.'));

    try
      post;
      UpdateBatch();
      form_enterprise_manage.Close;
    except
      application.MessageBox('经销商保存不成功.','提示',MB_OK);
    end;

  end;





end;

procedure TForm_Enterprise_Manage.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_Enterprise_Manage.edPhoneKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#8 then
    exit;
  if Key='-' then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

end.