?? ustaff.~pas
字號:
unit uStaff;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Wwdbigrd, Wwdbgrid, DB, ADODB, StdCtrls, DBCtrls, Mask,
wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel;
type
TfrmStaff = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
wwDBGrid1: TwwDBGrid;
wwDBNavigator1: TwwDBNavigator;
wwDBNavigator1First: TwwNavButton;
wwDBNavigator1PriorPage: TwwNavButton;
wwDBNavigator1Prior: TwwNavButton;
wwDBNavigator1Next: TwwNavButton;
wwDBNavigator1NextPage: TwwNavButton;
wwDBNavigator1Last: TwwNavButton;
wwDBNavigator1Insert: TwwNavButton;
wwDBNavigator1Delete: TwwNavButton;
wwDBNavigator1Edit: TwwNavButton;
wwDBNavigator1Post: TwwNavButton;
wwDBNavigator1Cancel: TwwNavButton;
wwDBNavigator1Refresh: TwwNavButton;
wwDBNavigator1SaveBookmark: TwwNavButton;
wwDBNavigator1RestoreBookmark: TwwNavButton;
wwDBNavigator1FilterDialog: TwwNavButton;
wwDBNavigator1RecordViewDialog: TwwNavButton;
wwDBNavigator1LocateDialog: TwwNavButton;
wwDBNavigator1SearchDialog: TwwNavButton;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBMemo1: TDBMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure wwDBNavigator1InsertClick(Sender: TObject);
procedure wwDBNavigator1EditClick(Sender: TObject);
procedure DBEdit2Exit(Sender: TObject);
procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure wwDBNavigator1PostClick(Sender: TObject);
procedure DBComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
function CreateCode():string;
public
{ Public declarations }
end;
var
frmStaff: TfrmStaff;
implementation
uses CDDM, uCommon;
{$R *.dfm}
procedure TfrmStaff.Button1Click(Sender: TObject);
begin
close;
end;
procedure TfrmStaff.FormCreate(Sender: TObject);
begin
if ADOTable1.Active=false then ADOTable1.Open;
end;
procedure TfrmStaff.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ADOTable1.Active=true then ADOTable1.Close;
end;
procedure TfrmStaff.wwDBNavigator1InsertClick(Sender: TObject);
begin
DBEdit2.SetFocus;
end;
procedure TfrmStaff.wwDBNavigator1EditClick(Sender: TObject);
begin
DBEdit2.SetFocus;
end;
procedure TfrmStaff.DBEdit2Exit(Sender: TObject);
begin
if not(DBEdit2.Text='') then
begin
DM.UpdateBianMa(DBEdit2.Text,1);
DBEdit3.Text:=GG_SpellCode;
DBEdit4.Text:=GG_WBCode;
end;
end;
procedure TfrmStaff.DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then DBComboBox1.SetFocus;
end;
procedure TfrmStaff.DBComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then DBMemo1.SetFocus;
end;
procedure TfrmStaff.DBMemo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then wwDBNavigator1.SetFocus;
end;
procedure TfrmStaff.wwDBNavigator1PostClick(Sender: TObject);
begin
if adotable1.State=Dsinsert then adotable1.FieldByName('編碼').Value:=CreateCode;
adotable1.FieldByName('拼音碼').Value:=DBEdit3.Text;
adotable1.FieldByName('五筆碼').Value:=DBEdit4.Text;
//adotable1.FieldByName('\').Value:=wwDBLookupCombo1.Text;
end;
function TfrmStaff.CreateCode: string;
var
intCode:integer;
strCode:string;
begin
strCode:=DM.GetMaxValue('編碼','借閱人表','借閱人ID>0');
if strCode='' then strCode:='0';
intCode:=strtoint(strCode);
strCode:=inttostr(intCode+100001);
strCode:=copy(strCode,3,4);
result:=strCode;
end;
procedure TfrmStaff.DBComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then DBComboBox2.SetFocus;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -