usong.pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit uSong;

interface

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

type
  TfrmSong = class(TForm)
    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;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    wwDBGrid1: TwwDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label4: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBNavigator1FilterDialog: TwwNavButton;
    wwDBNavigator1RecordViewDialog: TwwNavButton;
    wwDBNavigator1LocateDialog: TwwNavButton;
    wwDBNavigator1SearchDialog: TwwNavButton;
    DBMemo1: TDBMemo;
    ado_disk: TADOQuery;
    ado_Singer: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure wwDBEdit2Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure wwDBNavigator1InsertClick(Sender: TObject);
    procedure wwDBNavigator1EditClick(Sender: TObject);
    procedure wwDBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure wwDBLookupCombo2CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure wwDBNavigator1PostClick(Sender: TObject);
  private
    { Private declarations }
    function CreateCode():string;
  public
    { Public declarations }
  end;

var
  frmSong: TfrmSong;

implementation

uses CDDM, uCommon;

{$R *.dfm}

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

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

procedure TfrmSong.wwDBEdit2Exit(Sender: TObject);
begin
  if not(wwDBEdit2.Text='') then
      begin
        DM.UpdateBianMa(wwDBEdit2.Text,1);
        wwDBEdit4.Text:=GG_SpellCode;
        wwDBEdit5.Text:=GG_WBCode;
      end;
end;

procedure TfrmSong.FormShow(Sender: TObject);
begin
  if ADOTable1.Active=false then ADOTable1.Open;
  if ado_disk.Active=false then ado_disk.Open;
  if ado_Singer.Active=false then ado_Singer.Open;
end;

procedure TfrmSong.wwDBNavigator1InsertClick(Sender: TObject);
begin
  wwDBEdit2.SetFocus;
end;

procedure TfrmSong.wwDBNavigator1EditClick(Sender: TObject);
begin
  wwDBEdit2.SetFocus;
end;

procedure TfrmSong.wwDBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_return then wwDBEdit3.SetFocus;     
end;

procedure TfrmSong.wwDBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then wwDBLookupCombo1.SetFocus; 
end;

procedure TfrmSong.wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then wwDBComboBox1.SetFocus;
  if key=vk_down then  wwDBLookupCombo1.DropDown; 
end;

procedure TfrmSong.wwDBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_Return then wwDBLookupCombo2.SetFocus; 
end;

procedure TfrmSong.wwDBLookupCombo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return  then DBMemo1.SetFocus;
  if key=vk_down then wwDBLookupCombo2.DropDown; 
end;

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

procedure TfrmSong.wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  wwDBLookupCombo1.Text:=wwDBLookupCombo1.LookupTable.FieldbyName('歌星名').AsString;
end;

procedure TfrmSong.wwDBLookupCombo2CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  wwDBLookupCombo2.Text:=wwDBLookupCombo2.LookupTable.fieldByname('碟片专辑名').AsString; 
end;

procedure TfrmSong.wwDBNavigator1PostClick(Sender: TObject);
begin
  if adotable1.State=Dsinsert then
    begin
      adotable1.FieldByName('歌曲编码').Value:=CreateCode;
      adotable1.FieldByName('歌星').Value:=wwDBLookupCombo1.Text;
    end;
  adotable1.FieldByName('拼音码').Value:=wwDBEdit4.Text;
  adotable1.FieldByName('五笔码').Value:=wwDBEdit5.Text;
end;

function TfrmSong.CreateCode: string;
var
  intCode:integer;
  strCode:string;
begin
  strCode:=DM.GetMaxValue('歌曲编码','歌曲表','歌曲ID>0');
  if strCode='' then strCode:='0';
  intCode:=strtoint(strCode);
  strCode:=inttostr(intCode+1000001);
  strCode:=copy(strCode,2,6);
  result:=strCode;
end;

end.