?? operators_unit.pas
字號:
unit Operators_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons,
ExtCtrls, ToolWin;
type
TfrmOperators = class(TForm)
dbgrdUsers: TDBGrid;
StatusBar1: TStatusBar;
ControlBar1: TControlBar;
CoolBar3: TCoolBar;
sbtnAdd: TSpeedButton;
sbtnSave: TSpeedButton;
Bevel1: TBevel;
sbtnExit: TSpeedButton;
sbtnDelete: TSpeedButton;
SpeedButton1: TSpeedButton;
Panel1: TPanel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure sbtnAddClick(Sender: TObject);
procedure sbtnSaveClick(Sender: TObject);
procedure sbtnDeleteClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure sbtnExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmOperators: TfrmOperators;
implementation
uses DM_Unit;
{$R *.dfm}
procedure TfrmOperators.FormCreate(Sender: TObject);
begin
DM.sdsUsers.Open;
end;
procedure TfrmOperators.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Dm.sdsUsers.Close;
end;
procedure TfrmOperators.sbtnAddClick(Sender: TObject);
begin
DM.DataSetInsert(DM.sdsUsers);
end;
procedure TfrmOperators.sbtnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.sdsUsers);
end;
procedure TfrmOperators.sbtnDeleteClick(Sender: TObject);
begin
DM.DataSetDelete(DM.sdsUsers);
end;
procedure TfrmOperators.SpeedButton1Click(Sender: TObject);
begin
DM.DataSetCancel(DM.sdsUsers);
end;
procedure TfrmOperators.sbtnExitClick(Sender: TObject);
begin
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -