udisk.~pas

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

unit uDisk;

interface

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

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

var
  frmDisk: TfrmDisk;

implementation

uses CDDM, uCommon;

{$R *.dfm}

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

procedure TfrmDisk.wwDBNavigator1InsertClick(Sender: TObject);
//var
  //ST:string;
begin
  //st:=CreateCode;

  //showmessage(st) ;
  wwDBEdit2.SetFocus;
  //wwDBEdit1.Text:=st;
  //adotable1.FieldByName('碟片编码').Value:=wwDBEdit1.Text;
end;

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

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

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

procedure TfrmDisk.wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  wwDBLookupCombo1.Text :=lookuptable.FieldByName('歌星名').asString;
end;

procedure TfrmDisk.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 TfrmDisk.wwDBNavigator1PostClick(Sender: TObject);
begin
  if adotable1.State=Dsinsert then adotable1.FieldByName('碟片编码').Value:=CreateCode;
  adotable1.FieldByName('拼音码').Value:=wwDBEdit4.Text;
  adotable1.FieldByName('五笔码').Value:=wwDBEdit5.Text;
  adotable1.FieldByName('歌星').Value:=wwDBLookupCombo1.Text;   
end;

function TfrmDisk.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 TfrmDisk.wwDBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then  wwDBComboBox1.SetFocus;
end;

procedure TfrmDisk.wwDBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=Vk_Return then wwDBEdit3.SetFocus; 
end;

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

procedure TfrmDisk.wwDBDateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=Vk_return then wwDBLookupCombo1.SetFocus;
end;

procedure TfrmDisk.wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    begin
      if not (trim(wwDBLookupCombo1.Text)='') then
        begin
          with qry do
            begin
              close;
              Parameters.ParamByName('P_name').Value:=wwDBLookupCombo1.Text;
              open;
            end;
           if qry.IsEmpty then
             begin
               DM.UpdateBianMa(wwDBLookupCombo1.Text,1);
               //wwDBEdit4.Text:=GG_SpellCode;
               //wwDBEdit5.Text:=GG_WBCode;
               DM.execSQL('insert into 歌星表(歌星名,拼音码,五笔码)'+' values('+''''+wwDBLookupCombo1.Text+''''+','+''''+GG_SpellCode+''''+','+''''+GG_WBCode+''''+')');
             end;
        end;
      wwDBComboBox2.SetFocus;
    end;
end;

procedure TfrmDisk.wwDBComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then DBMemo1.SetFocus;
end;

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

end.