📄 kfdj.pas

📁 房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能
💻 PAS
字号:
unit Kfdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask,
  ExtCtrls, ADODB;

type
  TKfdjForm = class(TForm)
    Panel2: TPanel;
    bitbtn_insert: TBitBtn;
    bitbtn_modify: TBitBtn;
    bitbtn_delete: TBitBtn;
    bitbtn_post: TBitBtn;
    bitbtn_cancel: TBitBtn;
    bitbtn_quit: TBitBtn;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    DS_Kudj: TDataSource;
    ADQ_Kudj: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Com_Xb: TComboBox;
    ADOQry_insert: TADOQuery;
    ADOQry_update: TADOQuery;
    Label3: TLabel;
    Ed_Kubh: TEdit;
    Ed_Xm: TEdit;
    Ed_Dw: TEdit;
    Ed_Dz: TEdit;
    Ed_Sfzh: TEdit;
    Ed_Lxdh: TEdit;
    procedure bitbtn_quitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bitbtn_insertClick(Sender: TObject);
    procedure bitbtn_deleteClick(Sender: TObject);
    procedure bitbtn_postClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bitbtn_modifyClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure bitbtn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
     Select_flag:integer;
     procedure cleardata;
     procedure enabledAdd;
     procedure enabledfalse;
     procedure AddData;

    { Public declarations }
  end;

var
  KfdjForm: TKfdjForm;

implementation

uses DataModule, Unit_common_files;

{$R *.dfm}

procedure TKfdjForm.cleardata ;
begin
  Ed_Kubh.Text      :='';
  Ed_Xm.Text        :='';
  com_xb.Text       :='';
  Ed_dw.Text        :='';
  Ed_Dz.Text        :='';
  Ed_Lxdh.Text      :='';
  Ed_Sfzh.Text      :='';
end;
procedure TKFdjForm.enabledAdd ;
begin
  bitbtn_insert.Enabled :=false;
  bitbtn_delete.Enabled :=false;
  bitbtn_post.Enabled   :=true;
  bitbtn_cancel.Enabled :=true;
  Ed_Kubh.Enabled       :=true;
  Ed_Xm.Enabled         :=true;
  com_xb.Enabled        :=true;
  Ed_dw.Enabled         :=true;
  Ed_Dz.Enabled         :=true;
  Ed_Lxdh.Enabled       :=true;
  Ed_Sfzh.Enabled       :=true;
end;
procedure TKfdjForm.enabledfalse ;
begin
  Ed_Kubh.Enabled       :=false;
  Ed_Xm.Enabled         :=false;
  com_xb.Enabled        :=false;
  Ed_dw.Enabled         :=false;
  Ed_Dz.Enabled         :=false;
  Ed_Lxdh.Enabled       :=false;
  Ed_Sfzh.Enabled       :=false;
end;
procedure TKfdjForm.AddData ;
begin
   Ed_Kubh.Text :=ADQ_Kudj.FieldByName('manid').Text;
   Ed_Xm.Text   :=ADQ_Kudj.FieldByName('manname').Text;
   Com_xb.Text  :=ADQ_Kudj.FieldByName('sex').Text;
   Ed_Sfzh.Text :=ADQ_Kudj.FieldByName('idcard').Text;
   Ed_Dz.Text   :=ADQ_Kudj.FieldByName('iddress').Text ;
   Ed_Lxdh.Text :=ADQ_Kudj.FieldByName('handset').Text ;
   Ed_Dw.Text   :=ADQ_Kudj.FieldByName('company').Text ;
end;
procedure TKfdjForm.bitbtn_quitClick(Sender: TObject);
begin
 close;
end;

procedure TKfdjForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 action  :=cafree;
 Kfdjform:=nil; 
end;

procedure TKfdjForm.bitbtn_insertClick(Sender: TObject);
begin
  select_flag:=1;
  enabledAdd;
  cleardata;
  Ed_kubh.SetFocus ;
end;

procedure TKfdjForm.bitbtn_deleteClick(Sender: TObject);
begin
try
   if DB_module.ADOCon.InTransaction then DB_module.ADOCon.RollbackTrans ;
     DB_module.ADOCon.BeginTrans;
   if ADQ_Kudj.RecordCount >0 then
      begin
        if (MessageBox(Handle,'确实要删除该客户吗?','警告',MB_YESNO+MB_ICONWARNING)=IDYES) then
           ADQ_Kudj.Delete;
           DB_module.ADOCon.CommitTrans;
      end
   else
      begin
       MessageBox(0,'空记录不能删除!','余科华提示',MB_OK+MB_ICONWARNING);
      end; 
 except
   begin
    MessageBox(0,'操作用户失败！','错误',MB_OK+MB_ICONERROR);
    DB_module.ADOCon.RollbackTrans;
    exit;
   end;
end;
end;

procedure TKfdjForm.bitbtn_postClick(Sender: TObject);
begin
 try
   if Ed_Kubh.Text=''  then
        begin
          Application.MessageBox('请填写用户编号','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_Kubh.SetFocus ;
          exit;
        end;
   if Ed_Xm.Text=''  then
        begin
          Application.MessageBox('请填写用户姓名','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_xm.SetFocus ;
          exit;
        end;
   if Ed_Sfzh.Text=''  then
        begin
          Application.MessageBox('请填写用户身份证号','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_Sfzh.SetFocus ;
          exit;
        end;
   if Ed_Lxdh.Text =''  then
        begin
          Application.MessageBox('请填写用户联系电话','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_Lxdh.SetFocus ;
          exit;
        end;
   if Ed_Dz.Text=''  then
        begin
          Application.MessageBox('请填写身份证地址','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_Dz.SetFocus ;
          exit;
        end;  

  if DB_module.ADOCon.InTransaction then DB_module.ADOCon.RollbackTrans ;
     DB_module.ADOCon.BeginTrans;
  if Select_flag=1 then
  begin
     if ADOQry_insert.Active  then
        ADOQry_insert.Close;
        ADOQry_insert.Parameters.ParamByName('manid').Value:=Ed_Kubh.Text ;
        ADOQry_insert.Parameters.ParamByName('manname').Value:=Ed_Xm.Text;
        ADOQry_insert.Parameters.ParamByName('zjm').Value:=get_goods_zjm(Ed_Xm.Text);
        ADOQry_insert.Parameters.ParamByName('idcard').Value:=Ed_Sfzh.Text;
        ADOQry_insert.Parameters.ParamByName('iddress').Value:=Ed_Dz.Text;
        ADOQry_insert.Parameters.ParamByName('handset').Value:=Ed_Lxdh.Text;
        ADOQry_insert.Parameters.ParamByName('company').Value:=Ed_Dw.Text ;
     if  trim(com_xb.text)='男' then
        ADOQry_insert.Parameters.ParamByName('sex').Value:='1'
         else
        ADOQry_insert.Parameters.ParamByName('sex').Value:='0';
        ADOQry_insert.ExecSQL;
        DB_module.ADOCon.CommitTrans;
        showmessage('保存成功！');
        if ADQ_Kudj.Active then
           ADQ_Kudj.Close;
           ADQ_Kudj.Open ;
  end 
 else if select_flag=2 then
  begin
  if ADOQry_update.Active then
     ADOQry_update.Close;
        ADOQry_update.Parameters.ParamByName('manid').Value:=Ed_Kubh.Text;
        ADOQry_update.Parameters.ParamByName('manname').Value:=Ed_Xm.Text;
        ADOQry_update.Parameters.ParamByName('zjm').Value:=get_goods_zjm(Ed_Xm.Text);
        ADOQry_update.Parameters.ParamByName('idcard').Value:=Ed_Sfzh.Text;
        ADOQry_update.Parameters.ParamByName('iddress').Value:=Ed_Dz.Text;
        ADOQry_update.Parameters.ParamByName('handset').Value:=Ed_Lxdh.Text;
        ADOQry_update.Parameters.ParamByName('company').Value:=Ed_Dw.Text ;
    if  trim(com_xb.text)='男' then
        ADOQry_update.Parameters.ParamByName('sex').Value:='1'
         else
        ADOQry_update.Parameters.ParamByName('sex').Value:='0';
        ADOQry_update.Parameters.ParamByName('oldmanid').value:=ADQ_Kudj.FieldByName('manid').Value ;
        ADOQry_update.ExecSQL; 
        DB_module.ADOCon.CommitTrans;
        showmessage('修改成功！');
    if ADQ_Kudj.Active then
         ADQ_Kudj.Close;
         ADQ_Kudj.Open ;
 end
 except
  begin
   MessageBox(0,'操作失败，用户可能插入了相同的客户编号！','',MB_OK+MB_ICONERROR);
   DB_module.ADOCon.RollbackTrans;
   exit;
  end;
end;
  enabledfalse ;
  bitbtn_insert.Enabled:=true;
  bitbtn_delete.Enabled:=true;
end;

procedure TKfdjForm.FormCreate(Sender: TObject);
begin
   ADQ_Kudj.Close;
   ADQ_Kudj.Open ;
   AddData;
end;

procedure TKfdjForm.bitbtn_modifyClick(Sender: TObject);
begin
   select_flag:=2;
   AddData;
   enabledAdd;
end;

procedure TKfdjForm.DBGrid2CellClick(Column: TColumn);
begin
   AddData;
end;

procedure TKfdjForm.bitbtn_cancelClick(Sender: TObject);
begin
   enabledfalse ;   
   bitbtn_insert.Enabled:=true;
   bitbtn_delete.Enabled:=true;
   bitbtn_post.Enabled:=false;
   bitbtn_cancel.Enabled:=false;
   bitbtn_post.Enabled:=false;
   bitbtn_cancel.Enabled:=false;
end;

end.
💿 文件大小 822 K
👤 上传用户 lingyun579
📂 所属分类其他行业
🏷️ 相关标签

#房屋 #信息管理系统 #删除 #查询
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -