userdocuform.~pas

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· ~PAS 代码 · 共 249 行

unit UserDocuForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ImgList, DB, ADODB, ExtCtrls, StdCtrls, Buttons,
  ComCtrls, ToolWin, Grids, DBGrids, DBCtrls, Mask;

type
  TUserDocu = class(TParent)
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    MonthCalendar1: TMonthCalendar;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBCheckBox1: TDBCheckBox;
    ADOQuery2: TADOQuery;
    Panel2: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure DBComboBox4DropDown(Sender: TObject);
    procedure DBComboBox4Exit(Sender: TObject);
    procedure DBComboBox5DropDown(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBComboBox6DropDown(Sender: TObject);
    procedure DBComboBox6Exit(Sender: TObject);
    procedure MonthCalendar1DbClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBCheckBox1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure ToolButton6Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserDocu: TUserDocu;
  //
  isChecked:integer;

implementation

{$R *.dfm}

procedure TUserDocu.FormActivate(Sender: TObject);
var
  name:string;
begin
  inherited;
  //
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select distinct ReaderInfo_Type from ReaderInfo');
  adoquery2.Open;
  //
  dbcombobox2.Items.Clear;
  //
  while not adoquery2.Eof do
    begin
      name:=adoquery2.fieldbyname('ReaderInfo_Type').AsString;
      dbcombobox2.Items.Add(name);
      adoquery2.Next;
    end;
  end;

//
procedure  TUserDocu.DBComboBox5DropDown(Sender: TObject);
begin
  inherited;
  monthcalendar1.Date:=strtodate(dbcombobox5.Text);
  monthcalendar1.Top:=dbcombobox5.Top+panel2.Top-monthcalendar1.Height;
  monthcalendar1.Left:=dbcombobox5.Left;
  monthcalendar1.Visible:=true;
end;

//
procedure TUserDocu.DBComboBox5Exit(Sender: TObject);
begin
  inherited;
monthcalendar1.Visible:=false;
end;

//
procedure TUserDocu.DBComboBox6DropDown(Sender: TObject);
begin
  inherited;
  //
  monthcalendar1.Date:=strtodate(dbcombobox6.Text);
  //
  monthcalendar1.Top:=dbcombobox6.Top+panel2.Top-monthcalendar1.Height;
  monthcalendar1.Left:=dbcombobox6.Left;
  monthcalendar1.Visible:=true;
end;


//
procedure TUserDocu.DBComboBox6Exit(Sender: TObject);
begin
  inherited;
  monthcalendar1.Visible:=false;
end;

//
procedure TUserDocu.DBComboBox4DropDown(Sender: TObject);
begin
  inherited;
  monthcalendar1.Date:=strtodate(dbcombobox4.Text);
  monthcalendar1.Top:=dbcombobox4.Top+panel2.Top-monthcalendar1.Height;
  monthcalendar1.Left:=dbcombobox4.Left;
  monthcalendar1.Visible:=true;
end;

//
procedure TUserDocu.DBComboBox4Exit(Sender: TObject);
begin
  inherited;
  monthcalendar1.Visible:=false;
end;


//



procedure TUserDocu.MonthCalendar1DbClick(Sender: TObject);
begin
  inherited;
  if(panel2.Enabled=true) then
    begin
      //
      if dbcombobox4.Focused then
        dbcombobox4.Text:=datetostr(monthcalendar1.Date);
      if dbcombobox5.Focused then
        dbcombobox5.Text:=datetostr(monthcalendar1.Date);
      if dbcombobox6.Focused then
        dbcombobox6.Text:=datetostr(monthcalendar1.Date);
      monthcalendar1.Visible:=false;
    end;
end;

//


procedure TUserDocu.ToolButton5Click(Sender: TObject);
var
maxnum:integer;
newnum:string;

begin
  inherited;
//
dbcombobox4.Text:=datetostr(date);
dbcombobox5.Text:=datetostr(date);
dbcombobox6.Text:=datetostr(date);
//
//
ischecked:=0;
//
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select max(ReaderInfo_No) 最大编号 from ReaderInfo');
adoquery2.Open;
maxnum:=adoquery2.fieldByName('最大编号').AsInteger;
maxnum:=maxnum+1;
newnum:=inttostr(maxnum);
if length(newnum)=1 then
  dbedit2.Text:='000'+newnum;
if length(newnum)=2 then
  dbedit2.Text:='00'+newnum;
if length(newnum)=3 then
  dbedit2.Text:='0'+newnum;
if length(newnum)=4 then
  dbedit2.Text:=newnum;
//
dbcombobox2.SelText:=dbcombobox2.Items.Strings[0];

end;

//


procedure TUserDocu.DBCheckBox1Click(Sender: TObject);
begin
  inherited;
ischecked:=(ischecked)or(1); //

end;

procedure TUserDocu.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
  //
  dbgrid1.Columns[0].Width:=96;
  dbgrid1.Columns[1].Width:=48;
  dbgrid1.Columns[2].Width:=48;
  dbgrid1.Columns[3].Width:=32;
  dbgrid1.Columns[4].Width:=64;
  dbgrid1.Columns[5].Width:=64;
  dbgrid1.Columns[6].Width:=64;
  dbgrid1.Columns[7].Width:=80;
  dbgrid1.Columns[8].Width:=80;
  dbgrid1.Columns[9].Width:=80;
  dbgrid1.Columns[10].Width:=80;
  dbgrid1.Columns[11].Width:=80;
  dbgrid1.Columns[12].Width:=80;
  dbgrid1.Columns[13].Width:=64;
  dbgrid1.Columns[14].Width:=64;
  dbgrid1.Columns[15].Width:=64;
end;

procedure TUserDocu.ToolButton6Click(Sender: TObject);
begin
  inherited;
//
ischecked:=1;
end;

end.