今天搞定的一个小例子程序

最新推荐文章于 2024-06-20 15:49:05 发布
最新推荐文章于 2024-06-20 15:49:05 发布
阅读量784 收藏
点赞数
文章标签： button components user string class 产品
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chpst/article/details/952282
版权

参考 http://community.csdn.net/Expert/topic/4892/4892997.xml?temp=5.430239E-02http://community.csdn.net/Expert/topic/4889/4889784.xml?temp=4.424685E-02

#ifndef Unit1H
#define Unit1H
//------------------------------------- --------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Buttons.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TComboBox *ComboBox1;
        TDBGrid *DBGrid1;
        TButton *Button1;
        TLabel *Label1;
        TDataSource *DS;
        TADOConnection *ADOConnection1;
        TADOQuery *ADOQuery1;
        TBitBtn *BitBtn1;
        TBitBtn *BitBtn2;
        TBitBtn *BitBtn3;
        TBitBtn *BitBtn4;
        TBitBtn *BitBtn5;
        TEdit *Edit1;
        void __fastcall BitBtn5Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall ComboBox1Change(TObject *Sender);
        void __fastcall ComboBox1Click(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall BitBtn3Click(TObject *Sender);
        void __fastcall BitBtn4Click(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String Selstr,s_id,s_pwd;
int ItemCount,Count;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 // TLocateOptions Opts;
  AnsiString Sqlstr;

  if (Trim(Edit1->Text)=="" )
  {
      Application->MessageBox("输入要查的型号","提示！",0);
  }
  else
   {
    if (Selstr=="色带")
     {
      Sqlstr= "select * from " +Selstr + " where 商品名称 like '%"+Trim(Edit1->Text)+"%'"+" OR 通用于（架） like '%"+Trim(Edit1->Text)+"%'"+" OR 通用于（芯） like '%"+Trim(Edit1->Text)+"%'";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add(Sqlstr);
      ADOQuery1->Open();

      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==1)||(j==2))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20; //这条用于控制DBGrid列宽。
           else
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }
    
     }

    if (Selstr=="墨盒")
     {

      Sqlstr= "select * from " +Selstr + " where 墨盒编号 like '%"+Trim(Edit1->Text)+"%'"+" OR 适用机型 like '%"+Trim(Edit1->Text)+"%'";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add(Sqlstr);
      ADOQuery1->Open();

      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==2)||j==3)
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }

     }

    if (Selstr=="墨水")
     {
      //Opts.Clear();
      //Opts << loPartialKey;
      //ADOQuery1->Locate("墨水型号", Trim(Edit1->Text), Opts);

      Sqlstr= "select * from " +Selstr + " where 墨水型号 like '%"+Trim(Edit1->Text)+"%'"+" OR 适用机型 like '%"+Trim(Edit1->Text)+"%'";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add(Sqlstr);
      ADOQuery1->Open();

      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==4))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=14;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=30;
      }
     }

    if (Selstr=="碳粉")
     {

      Sqlstr= "select * from " +Selstr + " where 适用硒鼓 like '%"+Trim(Edit1->Text)+"%'"+" OR 适用机型 like '%"+Trim(Edit1->Text)+"%'";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add(Sqlstr);
      ADOQuery1->Open();

      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==1)||j==2)
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=14;  
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }

     }

     if (Selstr=="硒鼓")
     {

      Sqlstr= "select * from " +Selstr + " where 德宝产品型号 like '%"+Trim(Edit1->Text)+"%'"+" OR 适用机型 like '%"+Trim(Edit1->Text)+"%'";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add(Sqlstr);
      ADOQuery1->Open();

      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==1))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }

     }


   }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    AnsiString Sqlstr;
    //s_id=ComboBox1->Text;
    ItemCount=Form1->ComboBox1->ItemIndex;

  Selstr= Form1->ComboBox1->Items->Strings[ItemCount];
  if (ComboBox1->Text=="" || Selstr=="")
  {
      Application->MessageBox("没有选择品名 ","出错了！",0);
      Form1->ComboBox1->SetFocus();
      return;
   }
   else
     Sqlstr= "select * from " +Selstr;

    ADOQuery1->Close();
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(Sqlstr);
    ADOQuery1->Open();

    if (Selstr=="色带")
    {
     for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==1)||(j==2))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }
    }
    if (Selstr=="墨盒")
    {
     for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==2)||j==3)
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }
     }

    if (Selstr=="墨水")
    {
     for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==4))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=14;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=30;
      }

    }

    if (Selstr=="碳粉")
    {
     for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==1)||j==2)
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=14;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }

    }

    if (Selstr=="硒鼓")
    {
     for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==0)||(j==1))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
            DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }

    }

   
    //DS->DataSet=ADOQuery1;
   // DBGrid1->DataSource=DS;


}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
     Selstr=ComboBox1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    if (ADOQuery1->Bof)
        Application->MessageBox("到头了。 ","提示！",0);
    else
        ADOQuery1->Prior();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
    if (ADOQuery1->Eof)
        Application->MessageBox("到尾了。 ","提示！",0);
    else
        ADOQuery1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
       if (ADOQuery1->Bof==false)
           ADOQuery1->First();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
       if (ADOQuery1->Eof==false)
        ADOQuery1->Last();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormShow(TObject *Sender)
{

      Selstr="色带";
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Add("select * from 色带");
      ADOQuery1->Open();
    //  DS->DataSet=ADOQuery1;
   //   DBGrid1->DataSource=DS;
      for (int j = 0; j < DBGrid1->DataSource->DataSet->FieldCount; j++)
      {
         if ((j==1)||(j==2))
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=20;
           else
             DBGrid1->DataSource->DataSet->Fields->Fields[j]->DisplayWidth=40;
      }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    if (Key ==Char(13))                                           //在Edit1中按下回车键后，
      Form1->Button1->SetFocus();
}
//---------------------------------------------------------------------------

 

chpst
关注
C++Builder常用设置
勿忘初心,安得始终
10-29 3375
1、ComboBox1->Text能改变combobox
一文带你彻底搞定小程序分包和预加载
weixin_47121832的博客
08-09 1580
某些情况下，开发者需要将小程序划分成不同的子包，在构建时打包成不同的分包，用户在使用时按需进行加载。
微信小程序开发学习文档（万字总结，一篇搞定前端开发）
热门推荐
beiye_的博客
12-01 1万+
微信小程序开发学习文档（万字总结，一篇搞定前端开发）
一个github搞定微信小程序支付系列
weixin_30537391的博客
03-23 280
详情请前往github下载示例代码 源码中包含 支付、退款 功能 so easy，项目经理再也不用担心微信支付啦 是的，已经over了 转载于:https://www.cnblogs.com/yulongcode/p/10584866.html...
微信小程序 - 云开发
Qianmoer的博客
01-12 1万+
微信小程序 - 云开发
微信小程序弹窗代码
m0_57790713的博客
02-20 1373
在上面的示例中，wx.showModal 方法创建了一个等弹窗，并设置了标题和内容。success 回调函数用于处理用户点击弹窗上的按钮的事件。如果用户点击了确定按钮，res.confirm 的值为 true，否则为 false。同样，如果用户点击了取消按钮，res.cancel 的值为 true，否则为 false。在微信小程序中，您可以使用 wx.showModal 方法来创建一个等弹窗。如果您想要在等弹窗中添加自定义的按钮文本，可以使用 confirmText 和 cancelText
微信小程序开发的学习资料收集
zhan9le的博客
06-28 1万+
小程序开发学习资料集合
无需webview让小程序内显示任意公众号文章
freshman的博客
06-20 2225
个人主体小程序，也可以在小程序内嵌入任意公众号文章！
一起来做个免登录资源导航小程序！
努力做最接地气的编程干货分享，感谢关注
03-28 1861
免费编程资源大全：https://github.com/liyupi/free-programming-resources 今天，一起来开发个资源导航微信小程序吧，要实现的功能很简单，就是所有用户都可以查看和推荐资源。 主要目的是通过实战，帮助大家快速了解下 小程序开发流程 和 云开发技术，学习更高效的小程序开发方式。 技术选型 首先选择小程序开发技术。开发小程序的过程和开发网站类似，都是要写前端（界面交互）和后端（请求处理逻辑）代码。 前端 前端方面我选择用 Taro 框架 + Taro UI 开发。.
郁闷了，一个最简单的Spring小程序都没搞定
04-04
标题中的“郁闷了，一个最简单的Spring小程序都没搞定”表明博主在尝试开发一个基于Spring框架的小程序时遇到了问题。这通常涉及到Spring的核心概念，如依赖注入（Dependency Injection, DI）、ApplicationContext、...
用Python程序抓取网页的HTML信息的一个小实例
01-21
这篇不考虑复杂情况，放一个读取简单网页数据的小例子： 目标数据 将ittf网站上这个页面上所有这些选手的超链接保存下来。 数据请求 真的很喜欢符合人类思维的库，比如requests，如果是要直接拿网页文本，一句话...
Android应用源码之一个Demo搞定30个控件.zip
10-14
这个名为"Android应用源码之一个Demo搞定30个控件.zip"的压缩包文件，显然是为了帮助开发者通过一个综合性的Demo来学习和实践这30种常见的Android UI控件。下面，我们将详细探讨这些控件及其在Android开发中的作用。...
富文本解析-微信小程序 rich-text 组件
03-29
这种情况下后端如果不返回富文本，前端去在小程序去处理是比较麻烦的，还得定个规则，前端再写好样式拼接起来。如果后端直接给你返回富文本，用这个去解析可以直接搞定。 如官网给的例子： (此图片来源于网络，如有...
原生微信小程序开发-黑马优购（一）
peng109的博客
03-14 3064
接口文档地址： 轮播图--ShowDoc 视频地址： 黑马程序员微信小程序开发前端教程_零基础玩转微信小程序_哔哩哔哩_bilibili vs快捷键 wx-app wx-page 通过样式方式引入字体图标 微信小程序中不支持通配符“ * ” 页面初始化 主体颜色定义成变量 微信小程序单行注释没有用 单行注释没有用（//） 要 用多行注释（/* */） 写less文件，变成wxss文件？ 发送请求 ，要么记得把勾去掉，要么去开启请求合法域名 引入的路径要写...
微信小程序foreach遍历_手把手系列，100行代码搞定微信小程序全局状态同步
weixin_39922374的博客
12-22 618
最近接了一个小程序项目，对于以前只写过一个小工具的我而言，是时候考察一波小程序的基本功了(认真脸)。上手先了解了各路大神撸小程序的方式，前有基于vue语法的mpvue ，专职生成小程序；又有基于react的京东团队的taro 在后，一语多端，支持react语法生成小程序、H5、react-native......；还有官方wepy，仿vue语法，官方支持更稳定......都芥末:ox:的吗？ 赶紧...
基于大模型技术的算力产业监测服务平台设计
09-17
内容概要：本文提出了一种新型算力产业监测服务平台的设计理念，运用国内自主研发的大模型技术支持，通过对传统技术的改进和完善，提出了三层架构的设计方法，即基础设施层（含向量数据库和模型训练）、大模型应用框架层（强化数据处理与多维关系挖掘）及业务层（如智能分析助手）。这种设计方案旨在提高算力产业发展监测与决策制定的质量。 适合人群：电信行业的从业人员及研究人员；算力产业链各环节管理者；政府相关机构和政策决策者。 使用场景及目标：在多种算力相关的应用场景（如云计算中心管理，数据中心监测，政策分析）中辅助决策者进行快速有效的信息获取和技术选择；助力算力产业发展方向的精确把控和战略调整。 其他说明：随着大模型技术的日臻成熟，该算力产业监测服务平台预计将进一步丰富自身的应用领域和服务深度，以促进算力行业更智慧化发展。
This_honeypot_supports_Telnet_and_SSH_two_protocol_FF-Pot.zip
最新发布
09-17
This_honeypot_supports_Telnet_and_SSH_two_protocol_FF-Pot
吉他谱_What I've Done - Linkin Park.pdf
09-17
初级入门吉他谱 guitar tab
单片机高效利用：一个定时器搞定多路延时需求
在提供的代码示例中，作者定义了一个名为`msTimeoutCount`的16位静态变量，用于在1ms中断服务程序中递增。当中断发生时，`TPM2SC_TOF`标志会被清零，然后`msTimeoutCount`增加1。如果中断间隔不是1ms，而是Nms，那么...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值