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.