unit7.pas

用Delphi做一个公寓管理系统

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, DBCtrls, Mask;

type
  TForm_config_xi = class(TForm)
    Edit_Num_room: TEdit;
    Button1: TButton;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label3: TLabel;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    Label6: TLabel;
    Button2: TButton;
    Label7: TLabel;
    Query2: TQuery;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button3: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_config_xi: TForm_config_xi;

implementation

{$R *.dfm}

procedure TForm_config_xi.Button1Click(Sender: TObject);
begin
  if Edit_Num_room.Text<>'' then
  begin
    query1.Close;
    query1.ParamByName('Num_room').AsString:=Edit_Num_room.Text;
    query1.Open;
    if query1.RecordCount<=0 then
      begin
        showmessage('该寝室不存在!');
        Edit_Num_room.SetFocus;
      end
      else
       begin
         GroupBox1.Caption:=Edit_Num_room.Text;
         GroupBox2.Caption:=Edit_Num_room.Text;
         GroupBox2.Visible:=true;
         DBEdit1.DataField:='sex';
         DBEdit2.DataField:='sum_a';
         DBEdit3.DataField:='sum_p';
         DBEdit4.DataField:='phone';
         DBEdit5.DataField:='state';
         DBMemo1.DataField:='remark';
         edit1.Text:=DBEdit1.Text;
         edit2.Text:=DBEdit2.Text;
         edit3.Text:=DBEdit3.Text;
         edit4.Text:=DBEdit4.Text;
         edit5.Text:=DBEdit5.Text;
       end;
  end;
end;

procedure TForm_config_xi.Button2Click(Sender: TObject);
begin
  query2.Close;
  query2.ParamByName('sex').AsString:=edit1.Text;
  query2.ParamByName('phone').AsString:=edit4.Text;
  query2.ParamByName('state').AsString:=edit5.Text;
  query2.ParamByName('sum_a').AsString:=edit2.Text;
  query2.ParamByName('remark').AsString:=Memo1.Text;
  query2.ParamByName('Num_room').AsString:=GroupBox2.Caption;
  query2.ExecSQL;
  showmessage('修改成功!');
  Edit_Num_room.Text:='';
  Edit_Num_room.SetFocus;
  GroupBox2.Visible:=false;
end;

end.