【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DebtForm.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit DebtForm;
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
TDebt = class(TParent)
DBEdit1: TDBEdit;
Label6: TLabel;
Label7: TLabel;
DBEdit2: TDBEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
MonthCalendar1: TMonthCalendar;
BitBtn2: TBitBtn;
DBEdit3: TDBEdit;
procedure MonthCalendar1DblClick(Sender: TObject);
procedure DBComboBox2DropDown(Sender: TObject);
procedure DBComboBox2Exit(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure BitBtn2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Debt: TDebt;
implementation
{$R *.dfm}
uses ResideForm,MainForm;
//-------------------------------------------------------
//--------------------处理日历-----------------------
procedure TDebt.MonthCalendar1DblClick(Sender: TObject);
begin
inherited;
dbcombobox2.SelText:=datetostr(monthcalendar1.Date);
monthcalendar1.Visible:=false;
end;
procedure TDebt.DBComboBox2DropDown(Sender: TObject);
begin
inherited;
//将数据文本框中的时间赋给日历
if dbcombobox2.Text<>'' then
monthcalendar1.Date:=strtodate(dbcombobox2.Text);
//确定日历显示的位置
monthcalendar1.Top:=dbcombobox2.Top+panel2.Top-monthcalendar1.Height;
monthcalendar1.Left:=dbcombobox2.Left;
monthcalendar1.Visible:=true;
end;
procedure TDebt.DBComboBox2Exit(Sender: TObject);
begin
inherited;
monthcalendar1.Visible:=false;
end;
//-------------------------------------------------------
procedure TDebt.DataSource1DataChange(Sender: TObject; Field: TField);
begin
inherited;
//设置表格宽度
dbgrid1.Columns[0].Width:=80;
dbgrid1.Columns[1].Width:=100;
dbgrid1.Columns[2].Width:=100;
dbgrid1.Columns[3].Width:=80;
dbgrid1.Columns[4].Width:=80;
dbgrid1.Columns[5].Width:=100;
end;
//---------------新建窗口选择入住单号------------------
procedure TDebt.BitBtn2Click(Sender: TObject);
var
newform:TReside;
begin
newform:=TReside.Create(application);
newform.ToolButton6.Enabled:=false;
newform.ToolButton7.Enabled:=false;
newform.ToolButton8.Enabled:=false;
newform.ToolButton10.Enabled:=false;
newform.ToolButton11.Enabled:=false;
newform.Caption:='双击表格选择入住单号';
end;
//-------------读入入住单-------------
procedure TDebt.FormActivate(Sender: TObject);
begin
inherited;
if panel2.Enabled=true then
dbedit1.Text:=trim(main.RZNum);
end;
end.
上一篇:
frmFenXiang.frm
下一篇:
电话销售英文简历范文