usinger.pas

来自「模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人」· PAS 代码 · 共 132 行

unit uSinger;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, wwSpeedButton,
  wwDBNavigator, ExtCtrls, wwclearpanel, ComCtrls, wwriched, Wwdotdot,
  Wwdbcomb, Mask, wwdbedit, DBCtrls;

type
  TfrmSinger = class(TForm)
    wwDBGrid1: TwwDBGrid;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    wwDBEdit1: TwwDBEdit;
    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;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBMemo1: TDBMemo;
    wwDBNavigator1FilterDialog: TwwNavButton;
    wwDBNavigator1RecordViewDialog: TwwNavButton;
    wwDBNavigator1LocateDialog: TwwNavButton;
    wwDBNavigator1SearchDialog: TwwNavButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure wwDBEdit1Exit(Sender: TObject);
    procedure wwDBNavigator1PostClick(Sender: TObject);
    procedure wwDBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBComboBox1KeyDown(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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSinger: TfrmSinger;

implementation

uses CDDM, uCommon;

{$R *.dfm}

procedure TfrmSinger.FormCreate(Sender: TObject);
begin
  if ADOTable1.Active=false then ADOTable1.Open;  
end;

procedure TfrmSinger.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ADOTable1.Active=true then ADOTable1.Close;  
end;

procedure TfrmSinger.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmSinger.wwDBEdit1Exit(Sender: TObject);
begin
   if not(wwDBEdit1.Text='') then
      begin
        DM.UpdateBianMa(wwDBEdit1.Text,1);
        wwDBEdit2.Text:=GG_SpellCode;
        wwDBEdit3.Text:=GG_WBCode;
      end;
end;

procedure TfrmSinger.wwDBNavigator1PostClick(Sender: TObject);
begin
  adotable1.FieldByName('拼音码').Value:=wwDBEdit2.Text;
  adotable1.FieldByName('五笔码').Value:=wwDBEdit3.Text;
end;

procedure TfrmSinger.wwDBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then DBComboBox1.SetFocus; 
end;

procedure TfrmSinger.DBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then DBComboBox2.SetFocus;
end;

procedure TfrmSinger.DBComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then DBmemo1.SetFocus; 
end;

procedure TfrmSinger.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then wwDBNavigator1.SetFocus; 
end;

end.