unit16.~pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit16;
//------宿舍查询------//
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, ComCtrls, ImgList, ToolWin;

type
  Tfrm_c_ss = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label2: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Memo1: TMemo;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Edit7: TEdit;
    Button1: TButton;
    procedure editvalue;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_c_ss: Tfrm_c_ss;

implementation

uses Unit13;

{$R *.dfm}
//-----------------显示数据涵数--------------//
procedure Tfrm_c_ss.editvalue;
begin
  with data1.ADO_ssxx do
  begin
    Edit1.Text := fieldbyname('宿舍号').Value;
    edit2.Text := fieldbyname('价格').Value;
    edit3.Text := fieldbyname('应住人数').Value;
    edit4.Text := fieldbyname('状态').Value;
    edit5.Text := fieldbyname('居住性别').Value;
    edit6.Text := fieldbyname('电话').Value;
    memo1.Text := fieldbyname('备注').Value;
  end;
end;
//-----------DBGRID--------------//
procedure Tfrm_c_ss.DBGrid1CellClick(Column: TColumn);
begin
  if dbgrid1.DataSource.DataSet<>nil then
    if dbgrid1.DataSource.DataSet.RecordCount>0 then
      editvalue;
end;
//------------宿舍信息更新----------//
procedure Tfrm_c_ss.FormCreate(Sender: TObject);
begin
  with data1.ADO_ssxx do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 宿舍信息');
      open;
    end;
end;
//------------修改---------------//
procedure Tfrm_c_ss.ToolButton1Click(Sender: TObject);
begin
try
  with data1.ADO_ssxx do
    begin
      edit;
      fieldbyname('宿舍号').Value:=trim(edit1.Text);
      fieldbyname('价格').Value:=trim(edit2.Text);
      fieldbyname('应住人数').Value:=trim(edit3.Text);
      fieldbyname('状态').Value:=trim(edit4.Text);
      fieldbyname('居住性别').Value:=trim(edit5.Text);
      fieldbyname('电话').Value:=trim(edit6.Text);
      fieldbyname('备注').Value:=trim(memo1.Text);
      post;
    end;
  application.MessageBox('修改成功','提示',64);
except
  application.MessageBox('修改失败','提示',64);
end;
end;
//--------------删除-------------//
procedure Tfrm_c_ss.ToolButton3Click(Sender: TObject);
begin
  if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
     data1.ADO_ssxx.Delete;
end;
//----------------显示宿舍信息-----------//
procedure Tfrm_c_ss.ToolButton5Click(Sender: TObject);
begin
  with data1.ADO_yggl do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 宿舍信息');
      open;
    end;
end;
//-----------------退出---------//
procedure Tfrm_c_ss.ToolButton7Click(Sender: TObject);
begin
close
end;

end.