sysset.pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit SysSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  base, DBCtrls, Buttons, ExtCtrls, StdCtrls, Mask, ComCtrls, ImgList,
  ToolWin, Db, ExtDlgs, ADODB;

type
  TFrm_SysSet = class(TFrm_Base)
    ds_Data: TDataSource;
    ADOQ_Data: TADOQuery;
    Label2: TLabel;
    dbeOrgName: TDBEdit;
    dbeTelphone: TDBEdit;
    Label4: TLabel;
    Label7: TLabel;
    dbeAddress: TDBEdit;
    dbeEmail: TDBEdit;
    Label5: TLabel;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    dbeWeb: TDBEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure tblCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
    procedure f_DisableEdit(IsDisable:Boolean);
  public
    { Public declarations }
  end;

var
  Frm_SysSet: TFrm_SysSet;

implementation
uses database,common, Main;

{$R *.DFM}
procedure TFrm_SysSet.f_DisableEdit(IsDisable:Boolean);
VAR
  i:integer;
begin

  // 设置编辑状态
  for i:=0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i].Tag=-1 then
    begin
      (Self.Components[i] as TControl).Enabled:=Not IsDisable;
    end;
  end;


end;

procedure TFrm_SysSet.FormCreate(Sender: TObject);
begin
  inherited;
  ADOQ_Data.Open;
  ADOQ_Data.Edit;

end;

procedure TFrm_SysSet.tblCloseClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrm_SysSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  ADOQ_Data.Close;

end;

procedure TFrm_SysSet.FormActivate(Sender: TObject);
begin
//  inherited;

end;

procedure TFrm_SysSet.btnOkClick(Sender: TObject);
begin
  inherited;
  //录入检验
  if dbeOrgName.text='' then
  begin
    messageBox(Handle,'请您输入单位名称!','提示',MB_OK+MB_ICONERROR);
    dbeOrgName.SetFocus;
    Exit;
  end;
  // 提交数据
  ADOQ_Data.post;
  ADOQ_Data.Edit;

  MessageBox(handle,'数据保存成功！','提示',MB_OK+MB_ICONINFORMATION);

  //更新
  f_SysParmInit();
  MainForm.StatusBar.Panels[0].text :=gs_OrgName;

end;

procedure TFrm_SysSet.btnCancelClick(Sender: TObject);
begin
  inherited;
  ADOQ_Data.Cancel;
  //
  close;

end;

end.