精华内容
下载资源
问答
  • VC++窗体中使用时间控件的实例,不是日期选择器,希望不要搞混哦。比时间选择器更直接、更简单点的,把日期时间隔开,主要是为了演示各自的用法,高手可跳过,本代码仅供VC++初学朋友参考。
  • C# 窗体显示当前系统时间的例子DEMO
  • 使用Java的Swing组件编写的窗体类程序,用来显示系统当前的日期时间,并随系统的变化而变化。
  •  说明:返回一个 Variant (Date),根据计算机系统设置日期时间来指定日期时间。  示例: Private Sub CommandButton1_Click() Dim a As Variant a = Now MsgBox a End Sub 其次,我们需要知道Print方法...

    如图所示,需要在窗体上显示当前系统时间:

    在这里插入图片描述
    首先,我们看一下now函数的原型:

    Now 函数
      语法:Now
      说明:返回一个 Variant (Date),根据计算机系统设置的日期和时间来指定日期和时间。
      示例:

    Private Sub CommandButton1_Click()
        Dim a As Variant
        a = Now
        MsgBox a
    End Sub
    

    在这里插入图片描述
    其次,我们需要知道Print方法的使用范围

    vba和vb6.0基本语法一致,但在vba中,Print方法只能应用于Debug对象,不适用于窗体。窗体显示可以用label text这样的控件。

    因此,本问题的源程序为:

    Private Sub CommandButton1_Click()
        Label1.Caption = Now '在label上显示
        
        Debug.Print Now '在立即窗口中打印
    End Sub
    

    运行结果:

    在窗体上label控件上显示:

    在这里插入图片描述
    在【立即窗口】中打印:

    在这里插入图片描述

    展开全文
  • 前段时间测试机器xp系统下 模态窗体底部的按钮一半被遮盖(2003系统下显示正常) 因为找不到原因 代码中将窗体的高度调高 今天客户也出现类似其它窗体的事情,于是想了想 总不能老这么改吧,于是网上查了查...

         前段时间测试机器在xp系统下 模态窗体底部的按钮一半被遮盖(在2003系统下显示正常) 因为找不到原因 在代码中将窗体的高度调高

         今天客户也出现类似其它窗体的事情,于是想了想 总不能老这么改吧,于是网上查了查,有没有可行的办法,结果都需要修改代码, 我分析了下,xp系统下模态窗体的标题栏特别的高 所以如果把标题栏高度设置下 可能会解决此问题,但是如何设置标题栏高度,也是没有找到合适的方法,如是我就想设置下主题试试 ,最后将主题改为windows经典模式 窗体显示就很正常,其实xp系统下模式的主题模式是xp模式,它的默认模式的窗体标题栏高度却是高于windows经典模式,故将主题改下就解决了此问题。其实想想这也是一点电脑常识,只是想的复杂化了!惭愧

         所以分享下这点滴,希望以后有遇到此问题的人能看到此问题~~

    转载于:https://www.cnblogs.com/wanglinglong/archive/2011/09/16/2178517.html

    展开全文
  • 上下机窗体 机房收费系统

    千次阅读 热门讨论 2013-11-23 14:59:08
    1.加载:加载窗体时,显示当前系统时间和上机人数(下图黑色内容) 2.上机:通过输入的卡号调去基本信息,显示在窗体上(下图绿色内容) 3下机:显示消费时间,金钱和余额(重点消费金额的计算)(下图蓝色内容) ...

    首先对这个窗体进行下分析,可分为三个部分

    1.加载:加载窗体时,显示当前系统时间和上机人数(下图红色内容)

    2.上机:通过输入的卡号调去基本信息,显示在窗体上(下图绿色内容)

    3下机:显示消费时间,金钱和余额(重点在消费金额的计算)(下图蓝色内容)

        3.1.消耗金钱的计算方法:以递增时间为收费时间标准。

         基本数据表中有(半小时上机费用,递增时间,准备时间,至少上机时间)

       (1)半小时的费用/30  * 递增时间  =  等于一个递增时间段金钱 
       (2)上机的时间- 准备时间) = 总的时间
       (3)总时间/递增时间     得到递增时间段
       (4)递增时间段* 递增时间段的金额 等于总的消费金额 

       实例;半小时的费用为3元 ,递增时间为10分钟, 准备时间为2分钟,至少上机时间为5分钟

            上机上机munite <=2  不收钱

            总时间munite = 上机时间 - 2

           (munite>0 and munite<=5)   or  munite < =10  收1元      按一个递增时间段收费

           munite>10  and  minute < = 20                      收费 2元    按两个递增时间段

           ............................                                          


    代码如下:

    1.先声明全局变量

    Option Explicit
    Dim Timebegin As Date    '开始上机时间
    Dim Timeend As Date      '上机结束时间
    Dim onflag As Integer    '上机人数

    2.加载窗体:

    Private Sub Timer1_Timer() '使用Timer控件显示当前时间
      Nowtime.Caption = Time
    End Sub
    
    Private Sub MDIForm_Load()  ’从online表中获取当前上机的人数
      Dim mrc As ADODB.Recordset
      Dim msgtext As String
      Dim txtsql As String
        
        txtsql = "select * from OnLine_Info "
        Set mrc = ExecuteSQL(txtsql, msgtext)
        onflag = mrc.RecordCount
        Show2.Caption = onflag     ’显示当前上机人数
    End Sub
    3.上机事件:

    Private Sub cmdOn_Click()
        Dim txtsql As String
        Dim msgtext As String
        Dim mrc As ADODB.Recordset
        Dim mrcc As ADODB.Recordset
        Dim status As String    '卡的使用状态
        
        '检查卡号是否能正常使用
        txtsql = "select * from student_Info where cardno='" & Trim(txtcardNo.Text) & "'"
        Set mrc = ExecuteSQL(txtsql, msgtext)
      
        If mrc.EOF Then
            MsgBox "此卡尚未注册!", vbOKOnly + vbExclamation, "警告"
            txtcardNo.Text = ""
            txtcardNo.SetFocus
            mrc.Close
            Exit Sub
        Else
           status = Trim(mrc.Fields(10))
           If mrc.EOF = False And "未使用" = status Then
              MsgBox "该卡没有注册!", vbOKOnly + vbExclamation, "警告!"
              txtcardNo.Text = ""
              txtcardNo.SetFocus
              mrc.Close
              Exit Sub
             
           End If
        End If  
      '检查该卡号是否已经登录
        txtsql = "select * from OnLine_Info where cardno='" & Trim(txtcardNo.Text) & "'"
        Set mrcc = ExecuteSQL(txtsql, msgtext)
               
        '该卡号正在上机,
        If mrcc.EOF = False Then
            MsgBox "该卡号正在上机!", vbOKOnly + vbInformation, "提示"
            mrcc.Close
            mrc.Close
            Exit Sub
        End If
         
        mrcc.Close
            
            '如果卡号能用且没有上机,检查余额
            If Not mrc.Fields(7) > 2 Then         '2为basicdata表中的最少金额
                MsgBox "余额不足,请充值!", vbOKOnly + vbExclamation, "警告"
                mrc.Close
                Exit Sub
            End If
    
          '余额充足,窗体显示上机信息
            txtstudentNo.Text = mrc.Fields(1)
            txtStudentName.Text = mrc.Fields(2)
            txtType.Text = "固定用户"
            txtDepartment.Text = mrc.Fields(4)
            txtSex.Text = mrc.Fields(3)
            txtRecash.Text = mrc.Fields(7)
            txtOndate.Text = Format(Date, "yyyy-mm-dd")  '定义时间的格式
            txtOntime.Text = Format(Time, "hh:mm")
            Timebegin = Trim(txtOntime.Text)
            show1.Caption = "欢迎光临!"
            
    
          '显示登录人数
            onflag = onflag + 1
            Show2.Caption = onflag
            '断开数据库连接
            mrc.Close
    
           
            '将数据信息存入表onLine中
            txtsql = "select * from OnLine_Info"
            Set mrcc = ExecuteSQL(txtsql, msgtext)
            
            mrcc.AddNew
            mrcc.Fields(0) = Trim(txtcardNo.Text)
            mrcc.Fields(1) = Trim(txtType.Text)
            mrcc.Fields(2) = Trim(txtstudentNo.Text)
            mrcc.Fields(3) = Trim(txtStudentName.Text)
            mrcc.Fields(4) = Trim(txtDepartment.Text)
            mrcc.Fields(5) = Trim(txtSex.Text)
            mrcc.Fields(6) = Format(Date, "yyyy-mm-dd")
            mrcc.Fields(7) = Format(Time, "hh:mm")
            mrcc.Fields(8) = "LL-PC"
            mrcc.Update
            mrcc.Close
    txtOutdate.Text = ""
    txtOuttime.Text = ""
    txtExpensetime.Text = ""
    txtExpensecash.Text = ""
    End Sub
    4:下机事件

    Private Sub cmdOut_Click()
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    Dim mrcc As ADODB.Recordset
    
     '定义这么多的变量用于消耗金钱的计算过程
    Dim Usetime  As Single   '上机消耗的时间
    Dim Usecash   As Single '上机所消耗的金钱
    
    Dim Unittime As Single  '递增时间
    Dim Unitcash As Single  '递增金钱
    Dim UnitNumber As Integer  '递增时间段
    
    Dim pretime As Integer    '准备时间
    Dim Leasttime  As Integer   '至少上机时间
    
    Dim Halfcash As Single  '半小时的费用。
    Dim Totalcash As Single '最后余额
        
        '判断卡号是否在上机
        txtsql = "select * from OnLine_Info where cardno='" & Trim(txtcardNo.Text) & "'"
        Set mrc = ExecuteSQL(txtsql, msgtext)
        
        If mrc.EOF = True Then
            show1.Caption = "该卡号还没上机!"
            mrc.Close
            Exit Sub
    
        Else
           '卡号在上机,加载基本信息
            txtType.Text = mrc.Fields(1)
            txtstudentNo.Text = mrc.Fields(2)
            txtStudentName.Text = mrc.Fields(3)
            txtDepartment.Text = mrc.Fields(4)
            txtSex.Text = mrc.Fields(5)
            txtOndate.Text = mrc.Fields(6)
            txtOntime.Text = mrc.Fields(7)
            Timebegin = Trim(txtOntime.Text)
            mrc.Close
            
        End If
        
      
        '计算上机消耗的时间
        txtOutdate.Text = Format(Date, "yyyy-mm-dd")
        txtOuttime.Text = Format(Time, "hh:mm")
        Timeend = Trim(txtOuttime.Text)
       
       Usetime = Abs(DateDiff("n", Timeend, Timebegin)) ’暂不支持过夜功能
       txtExpensetime.Text = Usetime
      
         
         '连接基本数据表,取得基本信息
         txtsql = "select * from BasicData_info"
         Set mrc = ExecuteSQL(txtsql, msgtext)
         mrc.MoveLast
         Halfcash = mrc.Fields(0)  '固定用户半小时的费用
         Unittime = mrc.Fields(2)   '递增时间
         Leasttime = mrc.Fields(3)  '最少上机时间
         pretime = mrc.Fields(4)  '准备时间
         mrc.Close
        
     '计算消费的金额
     
     '第一种情况消费时间小于准备时间,消费金额为0
       If Usetime = <= pretime Then
          Usecash = 0
          txtExpensecash.Text = Usecash
       Else
         '一个递增时间段消费的金钱,以半小时的费用为计算基础
          Unitcash = Format((Halfcash / 30) * Unittime, "0.0")
         
         '第二种情况 消费时间小于最小上机时间 按一个递增时间段收费
          If Usetime <=Leasttime Then
             Usecash = Unitcash
             txtExpensecash.Text = Unitcash
          Else
            '第三种情况  最后求出的UnitNumber为递增时间段的个数
             Usetime = Usetime - pretime
             UnitNumber = Usetime Mod Unittime
             
             If UnitNumber = 0 Then
                 UnitNumber = Int(Usetime / Unittime)
             Else
                 UnitNumber = Int(Usetime / Unittime) + 1
             End If
          Usecash = Format(UnitNumber * Unitcash, "0.0")
          txtExpensecash.Text = Usecash
                          
         End If
      End If
    
        
    '计算最新余额
    
        txtsql = "select * from student_Info where cardno='" & txtcardNo & "'"
        Set mrc = ExecuteSQL(txtsql, msgtext)
        
        '获得原来的余额
        Totalcash = mrc.Fields(7)
        '计算消费后的余额
        Totalcash = Totalcash - Val(Trim(txtExpensecash.Text))
        '更新余额
        mrc.Fields(7).Value = Totalcash
        mrc.Update
        mrc.Close
        txtRecash.Text = Totalcash
    
    
    '更新表
        txtsql = "select * from OnLine_Info where cardno='" & Trim(txtcardNo.Text) & "'"
        Set mrcc = ExecuteSQL(txtsql, msgtext)
        
    
        txtsql = "select * from Line_Info"
        Set mrc = ExecuteSQL(txtsql, msgtext)
        
        mrc.AddNew
        mrc.Fields(1) = mrcc.Fields(0)
        mrc.Fields(2) = mrcc.Fields(2)
        mrc.Fields(3) = mrcc.Fields(3)
        mrc.Fields(4) = mrcc.Fields(4)
        mrc.Fields(5) = mrcc.Fields(5)
        mrc.Fields(6) = mrcc.Fields(6)
        mrc.Fields(7) = mrcc.Fields(7)
        mrc.Fields(8) = Trim(txtOutdate.Text)
        mrc.Fields(9) = Trim(txtOuttime.Text)
        mrc.Fields(10) = Trim(txtExpensetime.Text)
        mrc.Fields(11) = Trim(txtExpensecash.Text)
        mrc.Fields(12) = Trim(txtRecash.Text)
        mrc.Fields(13) = "正常下机"
        mrc.Fields(14) = "LL-PC"   '得到计算机的名字
        mrc.Update
        mrc.Close
        mrcc.Delete
        mrcc.Update
        mrcc.Close
        
        '登录用户减1
        onflag = onflag - 1
        Show2.Caption = onflag
        '显示下线
        show1.Caption = "欢迎下次再来!"
    
    End Sub





    展开全文
  • 其中非模态窗体的属性设置为fsStayOnTop就是让其一直前方显示。这样的效果就是操作模态窗体的时候,可以看得到非模态窗体,但是不可以操作非模态窗体,这样的效果是正确的。但是当程序执行某些操作之后,比如发...

    这个问题是这样的:

    在应用程序中加载两个窗体,一个是模态的,另一个是非模态窗体。其中非模态窗体的属性设置为fsStayOnTop就是让其一直在前方显示。这样的效果就是在操作模态窗体的时候,可以看得到非模态窗体,但是不可以操作非模态窗体,这样的效果是正确的。但是当程序执行某些操作之后,比如发了某个windows消息之后,这样的状态就会发生改变,导致非模态窗体不能正常显示。

    问题是系统消息发送之后窗体的FormStyle属性依然为fsStayOnTop但是就是不在前方显示,此问题相当恶心啊。如果设置为模态窗体则当这个窗体出现的时候就不能操作其他窗体,设置为非模态的则会导致没有获得焦点时可以处于最上面,但一旦获取焦点,就被mainform遮住了 设置成fsStayOnTop好象没有什么作用。


    研究了一段时间,也用度娘度了好久,才找到一个合适的解决方案。现在共享出来,希望大家遇到之后能迅速解决~~

    重载窗体的这个方法,然后在这个方法中指定窗体的句柄。

    procedure CreateParams(var Params: TCreateParams); override; 
    

    procedure MainForm.Createparams(var Params: TCreateParams);
    begin
      inherited;
      With Params do
      begin
        WndParent := Application.MainForm.Handle;
        Params.ExStyle := WS_EX_TOPMOST;
      end;
    end;

    这样之后,程序便可以顺利执行了。这是强制指定窗体的扩展属性啊!


    展开全文
  • 最近细化机房收费系统时,发现在下机窗体出现了很多消费时间为负值的情况,有时还会弹出Bug,仔细一看原来是跨日期的消费时间问题,那么如何设置日期的下机呢?机房收费系统中的MDI 窗体如何运用呢?下面就这...
  • QQ窗体监控系统

    千次阅读 2010-08-19 16:53:00
    实现过程需要添加一个Timer用于监控,设置快捷键用于显示程序窗体(为了不让别人发现,程序启动时就隐藏),设置程序开机自动启动(以前的日志有详细介绍),为了方便还可以添加更为丰富的功能。当然,也不...
  • C# winform 调用系统时间窗体

    千次阅读 2008-01-30 21:35:00
    System.Diagnostics.Process.Start("TimeDate.cpl");调用系统时间窗体System.Diagnostics.Process.Start("calc.exe");调用系统其他exe文件 
  • 窗体

    2013-12-15 16:56:36
    窗体 编辑 ...窗体是一种文档,可以用来收集信息。它包括两部分,一部分是由窗体设计者输入的,填写窗体的人无法...窗体设计者可以文档插入窗体域或 ActiveX 控件,为窗体填写者提供用于收集数据的位置。
  • 机房收费系统窗体控件命名

    千次阅读 2015-08-08 11:30:32
    机房收费系统窗体控件命名,仅供参考
  • java实现图片充满整个无标题栏窗体,移动窗体(点击窗体的任何位置能任意移动),还设置窗体在屏幕显示中央位置 java 实现图片充满整个窗体,没有标题栏; 实现图片充满......窗体界面程序设计 教师评定___ 一、 实验...
  • 基于C#窗体的学生成绩/信息管理系统

    千次阅读 多人点赞 2020-06-23 23:27:51
    前段时间发布了一个网页版的基于C#的学生信息管理系统,有很多同学都跑来问我有没有窗体版本的,所以为了满足大家的要求,近段时间就写了一个窗体版的学生成绩/信息管理系统。学生成绩/信息管理是一个必不可少的...
  • winform程序窗体MID相关设置

    千次阅读 2014-05-14 09:33:56
    winform程序设计经常会遇到一些设置性问题,此记录总结一些经常遇到的小问题。 1.MDI多窗体程序,子窗口点击最大化,会出现看到子窗口的icon显示菜单,而实际上正常状态下子窗口的showIcon属性是...
  • 机房收费系统之主窗体

    热门讨论 2017-12-10 21:47:17
    整个系统做完之后认识到我们现在做的这些确实很简单,...对大家做完机房后肯定都发现自己这个过程进步了很多,有种豁然开朗的感觉,废话少说我们来看今天的主角——机房主窗体  我们做机房主窗体前首先要明确
  • 通过StatusStrip显示窗体状态栏同时将状态栏分成三部分居左边显示相关文字信息中间空白显示居右边...2.statusStrip1的Items属性 添加三个StatusLabel 默认名称toolStripStatusLabel1,2,3 按1,2,3的顺序排列 3...
  • 机房收费系统之结账窗体理解

    热门讨论 2017-01-22 21:06:35
    最近学习机房收费系统的时候,我发现再一次暴躁了,,狂躁症使我崩溃,但是后来新月的讲解下,我慢慢的懂了这是咋回事,既然理解了就很好敲了,所以今天就来说说我的理解  本窗体目的 为了能清楚这一天,操作...
  • 机房收费系统开启的第一步是敲打注册窗体^_^ 一、梳理的注册窗体代码逻辑及代码思路如下: ...ischeck,date,time,type的字段设置的都是不允许有NULL值,把数据吧表的每个字段赋值就不会有问题了。   三、查...
  • 机房管理系统之主窗体

    千次阅读 2010-08-20 07:34:00
    首先判断登录到该系统的用户级别,并对菜单进行相应的设置(若操作用户则,管理员的菜单不可见,若一般用户,则操作员和管理员的菜单都不可见) 然后将该值班老师的信息添加到正在值班教师表。(这里我将写...
  • 背景:  由于一个页面上需要有多个不同的弹出框,如果我们将好几个弹出框都写一个页面... 想的挺好的,可是 一开始就遇到了问题,直接本页面弹出一个子窗体的时候样式不是很乐观,本来网上查了例子,人家设置
  • Winform之学生信息管理系统各种子窗体(一)

    万次阅读 多人点赞 2015-05-06 20:51:25
    完成的过程总是遇到各种各样的问题,对于登录窗体的设计还是存在着一些弊端,那就是需要登录学生信息管理系统时如果输入的数据出错不必一个个删除,就需要在窗体上再添加一个清空写入数据的button控件,将其属性...
  • 下面按照字母顺序列出了可 Windows 窗体中使用的控件。(请注意,该列表还包含组件。)使用链接可找到有关如何使用每个控件的信息。注意,除了本节所包含的 Windows 窗体控件之外,还可以向 Windows 窗体添加 ...
  • 下面按照字母顺序列出了可 Windows 窗体中使用的控件。(请注意,该列表还包含组件。)使用链接可找到有关如何使用每个控件的信息。注意,除了本节所包含的 Windows 窗体控件之外,还可以向 Windows 窗体添加 ...
  • 机房收费系统窗体控件命名

    热门讨论 2018-01-14 20:28:08
    机房收费系统窗体很多,因此需要根据VB命名规范编辑窗体及控件名称。 这是常用控件的前缀书写格式。 控件 前缀 举例 控件 前缀 ...
  • 机房收费系统——登录窗体

    千次阅读 热门讨论 2012-01-31 21:25:02
    其实想想做机房收费系统的整个过程,也就是登录窗体的时候卡住了,因为这是第一次用三层做,而且说实话对VB.NET不是特别熟悉,登录窗体能够运行之后,后面的大概就是堆代码了。 这是我机房收费系统的包图。下面以...
  • 窗体句柄:枚举出当前系统所有窗体句柄来源: 发布时间:星期三, 2008年10月29日 浏览:2次 评论:0有时玩需要一个软件一定时间执行一件时情,而软件本身又不提供相关接口,更不用说可编程性了, 没办法,只能写个程序...
  • 2.界面需要用到的控件,以及控件的简单设置; 3.不需要按钮控件的情况下,点击会生成按钮的实现; 4.通过点击后生成的菜品统计以及价格的自动计算; 二.编程核心 1.获取控件的内容; 2.添加按钮点击事件; 3.对控件...
  •  //设置Timer 1000ms实现一次动作 实际是一个线程  private void setTimer(JLabel time){  final JLabel varTime = time;  Timer timeAction = new Timer(1000, new ActionListener() {    ...
  • 空白窗体添加控件

    2018-09-08 16:36:59
    //定义按钮标识符是指定一个唯一的整数值标识按钮对象,数字要不一样,名称自己定义,一般的做法是程序的头部用define语句声明一个宏常量 #define IDC_MAIN_BUTTON 101 // 按钮标识符 #define IDC_MAIN_EDIT 102...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 64,143
精华内容 25,657
关键字:

如何在窗体中设置系统日期为