tfgl.pas

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

unit Tfgl;

interface

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

type
  TTfglForm = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Ed_Fh: TEdit;
    Ed_Xm: TEdit;
    Panel2: TPanel;
    bitbtn_insert: TBitBtn;
    bitbtn_post: TBitBtn;
    bitbtn_cancel: TBitBtn;
    bitbtn_quit: TBitBtn;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    ADOQry_insert: TADOQuery;
    Label4: TLabel;
    Label5: TLabel;
    Ed_BeginDate: TEdit;
    Ed_Yj: TEdit;
    Label7: TLabel;
    Com_status: TComboBox;
    ADQ_Tfgl: TADOQuery;
    DS_Tfgl: TDataSource;
    ADQ_Fh: TADOQuery;
    Label1: TLabel;
    Ed_bh: TEdit;
    BBtn_Print: TBitBtn;
    ADOQry_Del: TADOQuery;
    procedure bitbtn_quitClick(Sender: TObject);
    procedure Ed_FhChange(Sender: TObject);
    procedure Ed_FhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Ed_FhKeyPress(Sender: TObject; var Key: Char);
    procedure bitbtn_insertClick(Sender: TObject);
    procedure bitbtn_postClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
     select_flag:integer;
     procedure FhAddData;
     procedure AddData;
     procedure enabledAdd;
     procedure cleardata;
     procedure enabledfalse;
    { Public declarations }
  end;

var
  TfglForm: TTfglForm;

implementation

uses DataModule,DateUtils, Cbreport, Unit_common_files;

{$R *.dfm}
procedure TTfglForm.enabledfalse ;
begin
  Ed_fh.Enabled        :=false;
  Com_status.Enabled   :=false;
  bitbtn_cancel.Enabled:=false;
  bitbtn_insert.Enabled:=true;
end;
procedure TTfglForm.cleardata ;
begin
  Ed_fh.Text     :='' ;
  com_status.Text:='';
end;
procedure TTfglForm.enabledAdd ;
begin
  bitbtn_insert.Enabled :=false;
  bitbtn_post.Enabled   :=true;
  bitbtn_cancel.Enabled :=true;
  Ed_fh.Enabled         :=true;
  Com_Status.Enabled    :=true;
end;
procedure TTfglForm.FhAddData ;
begin
  Ed_bh.Text       :=ADQ_Fh.FieldByName('manid').Text ;
  Ed_Xm.Text       :=ADQ_Fh.FieldByName('manname').Text  ;
  Ed_BeginDate.Text:=ADQ_Fh.FieldByName('begindate').Text ;
  Ed_Yj.Text       :=ADQ_Fh.FieldByName('fangya').Text ;
end;
procedure TTfglForm.AddData ;
begin
  Ed_BeginDate.Text:=ADQ_Tfgl.FieldByName('begindate').Text ;
  Ed_Yj.Text       :=ADQ_Tfgl.FieldByName('tfj').Text ;
  Ed_Fh.Text       :=ADQ_Tfgl.FieldByName('fangno').Text ;
  Com_status.Text  :=ADQ_Tfgl.fieldbyname('status').Text ;
end;
procedure TTfglForm.bitbtn_quitClick(Sender: TObject);
begin
 close;
end;

procedure TTfglForm.Ed_FhChange(Sender: TObject);
begin
  ADQ_Fh.Close;
  ADQ_Fh.SQL.Clear ;
  ADQ_Fh.SQL.Add('SELECT A.manid, B.manname, B.Zjm, A.fangno,C.fangya,A.begindate');
  ADQ_Fh.SQL.Add('FROM dbo.Zf_Rz A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid');
  ADQ_Fh.SQL.Add('INNER JOIN dbo.Zf_Zujin C ON A.fangno = C.fangno where ');
  ADQ_Fh.SQL.Add('A.status=''1'' and c.fangya>0 and (a.fangno like :fangno or b.zjm like :zjm)');
  ADQ_Fh.Parameters.ParamByName('fangno').Value :=trim(Ed_Fh.Text)+'%';
  ADQ_Fh.Parameters.ParamByName('zjm').Value    :=trim(Ed_Fh.Text)+'%';
  ADQ_Fh.Open ;
  FhAddData;
end;

procedure TTfglForm.Ed_FhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
  begin
    Ed_fh.Text:=ADQ_Fh.FieldByName('fangno').asstring;
  end;
end;

procedure TTfglForm.Ed_FhKeyPress(Sender: TObject; var Key: Char);
begin
   if (key>='0')and(key<='9') then
  begin
    ADQ_Fh.Locate('fangno',trim(Ed_fh.text+char(key)),[]);
  end;
end;

procedure TTfglForm.bitbtn_insertClick(Sender: TObject);
begin
  select_flag:=1;
  enabledAdd;
  cleardata;
  Ed_Fh.SetFocus ; 
end;
procedure TTfglForm.bitbtn_postClick(Sender: TObject);
begin
    try
   if Ed_fh.Text=''  then
        begin
          Application.MessageBox('请填写房号','余科华提示',MB_OK+MB_ICONINFORMATION);
          Ed_Fh.SetFocus ;
          exit;
        end;   
   if Com_status.Text=''  then
        begin
          Application.MessageBox('请填写状态','余科华提示',MB_OK+MB_ICONINFORMATION);
          Com_status.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_Bh.Text ;
        ADOQry_insert.Parameters.ParamByName('fangno').Value   :=Ed_fh.Text ;
        ADOQry_insert.Parameters.ParamByName('begindate').Value:=Ed_begindate.Text ;
        ADOQry_insert.Parameters.ParamByName('tfdate').Value   :=strtodate(datetostr(date));
        ADOQry_insert.Parameters.ParamByName('tfj').Value      :=Ed_Yj.Text ;
        if trim(Com_status.text)='已退房' then
           ADOQry_insert.Parameters.ParamByName('status').Value:='0'
        else
           ADOQry_insert.Parameters.ParamByName('status').Value:='1';
        ADOQry_insert.ExecSQL;
        ADOQry_Del.Close ;
        ADOQry_Del.SQL.Clear ;
        ADOQry_Del.SQL.Add('delete zf_rz where fangno = '''+ trim(ed_fh.text)+'''');
        //ADOQry_Del.Parameters.ParamByName('oldfangno').Value :=trim(Ed_fh.Text)  ;
        ADOQry_Del.ExecSQL ;
        DB_module.ADOCon.CommitTrans;
        showmessage('退房成功！');
    if  ADQ_Tfgl.Active then
        ADQ_Tfgl.Close;
        ADQ_Tfgl.Open ;
  end
 except
  begin
   MessageBox(0,'操作失败！','',MB_OK+MB_ICONERROR);
   DB_module.ADOCon.RollbackTrans;
   exit;
  end;
end;
  enabledfalse ;
end;

procedure TTfglForm.DBGrid1CellClick(Column: TColumn);
begin
 AddData;
end;

procedure TTfglForm.FormCreate(Sender: TObject);
begin
   ADQ_Tfgl.Open ;
end;

procedure TTfglForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action  :=cafree;
  TfglForm:=nil;
end;

procedure TTfglForm.BBtn_PrintClick(Sender: TObject);
begin
{ if ADQ_Tfgl.IsEmpty then
    begin
       messagebox(0,'请查询后再打印！','余科华提示',MB_OK+MB_ICONWARNING);
       Exit;
    end
 else
    begin 
      if BbForm_report=nil then
         BbForm_report:=TBbForm_report.Create(nil);
         BbForm_report.QRL_Jbr.Caption :=CurrentUserName;
         BbForm_report.QRL_date.Caption:=inttostr(yearof(date))+'年'+inttostr(monthof(date))+'月'+inttostr(dayof(date))+'日';
         BbForm_report.Tf_report.Preview ;
    end; }
end;

end.