【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,UserDocuForm.pas,希望对大家有所帮助!
unit UserDocuForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ParentForm, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls,
ToolWin, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;
type
TUserDocu = class(TParent)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBComboBox1: TDBComboBox;
Label9: TLabel;
Label10: TLabel;
ADOQuery2: TADOQuery;
Label11: TLabel;
DBEdit4: TDBEdit;
Label12: TLabel;
DBComboBox3: TDBComboBox;
Label13: TLabel;
Label14: TLabel;
DBComboBox5: TDBComboBox;
MonthCalendar1: TMonthCalendar;
Label15: TLabel;
Label16: TLabel;
DBEdit5: TDBEdit;
Label17: TLabel;
DBEdit6: TDBEdit;
Label18: TLabel;
DBEdit7: TDBEdit;
Label19: TLabel;
DBCheckBox1: TDBCheckBox;
Label20: TLabel;
DBMemo1: TDBMemo;
DBComboBox6: TDBComboBox;
DBComboBox7: TDBComboBox;
DBEdit8: TDBEdit;
DBComboBox2: TDBComboBox;
procedure FormActivate(Sender: TObject);
procedure DBComboBox5DropDown(Sender: TObject);
procedure DBComboBox5Exit(Sender: TObject);
procedure DBComboBox6DropDown(Sender: TObject);
procedure DBComboBox6Exit(Sender: TObject);
procedure DBComboBox7Exit(Sender: TObject);
procedure DBComboBox7DropDown(Sender: TObject);
procedure MonthCalendar1DblClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure DBCheckBox1Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure ToolButton7Click(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 类型 from 读者类型');
adoquery2.Open;
//清空本窗体中的【类型】下拉列表框的内容
dbcombobox2.Items.Clear;
//根据
查询到的信息重新添加下拉
列表框选项
while not adoquery2.Eof do
begin
name:=adoquery2.fieldbyname('类型').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.DBComboBox7DropDown(Sender: TObject);
begin
inherited;
monthcalendar1.Date:=strtodate(dbcombobox7.Text);
monthcalendar1.Top:=dbcombobox7.Top+panel2.Top-monthcalendar1.Height;
monthcalendar1.Left:=dbcombobox7.Left;
monthcalendar1.Visible:=true;
end;
procedure TUserDocu.DBComboBox7Exit(Sender: TObject);
begin
inherited;
monthcalendar1.Visible:=false;
end;
//--------------双击日历控件时选择日期----------------
procedure TUserDocu.MonthCalendar1DblClick(Sender: TObject);
begin
inherited;
if (panel2.Enabled=true) then
begin
//判断是由那个下来列表框调用的日历控件,以便更新其值
if dbcombobox5.Focused then
dbcombobox5.Text:=datetostr(monthcalendar1.date);
if dbcombobox6.Focused then
dbcombobox6.Text:=datetostr(monthcalendar1.date);
if dbcombobox6.Focused then
dbcombobox6.Text:=datetostr(monthcalendar1.date);
monthcalendar1.Visible:=false;
end;
end;
procedure TUserDocu.ToolButton6Click(Sender: TObject);
var
maxnum:integer;
newnum:string;
begin
inherited;
//将三个显示时间