?? unit16.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -