📄 khinfo.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "KHinfo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKHForm *KHForm;
//---------------------------------------------------------------------------
__fastcall TKHForm::TKHForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::FormCreate(TObject *Sender)
{
DM->ADOQ_KHinfo->Close();
DM->ADOQ_KHinfo->SQL->Clear();
DM->ADOQ_KHinfo->SQL->Add("select * from 客户资料表");
DM->ADOQ_KHinfo->Open();
TTreeNode *rNode,*mNode;
TreeView1->Items->Clear();
rNode=TreeView1->Items->Add(TreeView1->Selected,"全部客户");
rNode->ImageIndex=1;
rNode->SelectedIndex=1;
int n=2;
AnsiString str,query;
DM->ADOQ_QY->Close();
DM->ADOQ_QY->SQL->Clear();
DM->ADOQ_QY->SQL->Add("select * from 地区信息表");
DM->ADOQ_QY->Open();
while(!DM->ADOQ_QY->Eof)
{
str=DM->ADOQ_QY->FieldByName("地区名称")->AsString;
DBComboBox1->Items->Add(str.Trim());
mNode=TreeView1->Items->AddChild(rNode,str);
mNode->ImageIndex=n;
mNode->SelectedIndex=n;
n++;
DM->ADOQ->Close();
DM->ADOQ->SQL->Clear();
query="select 编号,名称 from 客户资料表 where 地区名称='";
query+=str;
query+="'";
DM->ADOQ->SQL->Add(query);
DM->ADOQ->Open();
while(!DM->ADOQ->Eof)
{
str=DM->ADOQ->FieldByName("编号")->Value;
str+=DM->ADOQ->FieldByName("名称")->Value;
TreeView1->Items->AddChild(mNode,str);
DM->ADOQ->Next();
}
DM->ADOQ->Close();
DM->ADOQ_QY->Next();
}
DM->ADOQ_QY->Close();
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::closeBtnClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::insertBtnClick(TObject *Sender)
{
if(insertBtn->Caption=="增加")
{
insertBtn->Caption="存盘";
editBtn->Enabled=false;
printBtn->Enabled=false;
closeBtn->Enabled=false;
DBComboBox1->ReadOnly=false;
DBEdit2->ReadOnly=false;
DBEdit3->ReadOnly=false;
DBEdit4->ReadOnly=false;
DBEdit5->ReadOnly=false;
DBEdit6->ReadOnly=false;
DBEdit7->ReadOnly=false;
DBEdit8->ReadOnly=false;
DBEdit9->ReadOnly=false;
DBEdit10->ReadOnly=false;
DBEdit11->ReadOnly=false;
DBEdit12->ReadOnly=false;
DBEdit13->ReadOnly=false;
DBRadioGroup1->ReadOnly=false;
int num;
if(DM->ADOQ_KHinfo->RecordCount==0)
num=100001;
else{
DM->ADOQ_KHinfo->Last();
num=DM->ADOQ_KHinfo->FieldByName("编号")->AsInteger+1;
}
DM->ADOQ_KHinfo->Insert();
DM->ADOQ_KHinfo->FieldByName("编号")->AsInteger=num;
}else{
insertBtn->Caption="增加";
editBtn->Enabled=true;
printBtn->Enabled=true;
closeBtn->Enabled=true;
DBComboBox1->ReadOnly=true;
DBEdit2->ReadOnly=true;
DBEdit3->ReadOnly=true;
DBEdit4->ReadOnly=true;
DBEdit5->ReadOnly=true;
DBEdit6->ReadOnly=true;
DBEdit7->ReadOnly=true;
DBEdit8->ReadOnly=true;
DBEdit9->ReadOnly=true;
DBEdit10->ReadOnly=true;
DBEdit11->ReadOnly=true;
DBEdit12->ReadOnly=true;
DBEdit13->ReadOnly=true;
DBRadioGroup1->ReadOnly=true;
TTreeNode *rNode;
AnsiString str=DBComboBox1->Text.Trim();
for(int i=0;i<TreeView1->Items->Count;i++)
if(TreeView1->Items->Item[i]->Level==1 && TreeView1->Items->Item[i]->Text==str)
{
str=DBEdit1->Text.Trim()+DBEdit13->Text.Trim();
rNode=TreeView1->Items->Item[i];
TreeView1->Items->AddChild(rNode,str);
}
DM->ADOQ_KHinfo->Post();
}
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::editBtnClick(TObject *Sender)
{
if(editBtn->Caption=="修改")
{
editBtn->Caption="存盘";
insertBtn->Enabled=false;
printBtn->Enabled=false;
closeBtn->Enabled=false;
DBComboBox1->ReadOnly=false;
DBEdit2->ReadOnly=false;
DBEdit3->ReadOnly=false;
DBEdit4->ReadOnly=false;
DBEdit5->ReadOnly=false;
DBEdit6->ReadOnly=false;
DBEdit7->ReadOnly=false;
DBEdit8->ReadOnly=false;
DBEdit9->ReadOnly=false;
DBEdit10->ReadOnly=false;
DBEdit11->ReadOnly=false;
DBEdit12->ReadOnly=false;
DBEdit13->ReadOnly=false;
DBRadioGroup1->ReadOnly=false;
DM->ADOQ_KHinfo->Edit();
}else{
editBtn->Caption="修改";
insertBtn->Enabled=true;
printBtn->Enabled=true;
closeBtn->Enabled=true;
DBComboBox1->ReadOnly=true;
DBEdit2->ReadOnly=true;
DBEdit3->ReadOnly=true;
DBEdit4->ReadOnly=true;
DBEdit5->ReadOnly=true;
DBEdit6->ReadOnly=true;
DBEdit7->ReadOnly=true;
DBEdit8->ReadOnly=true;
DBEdit9->ReadOnly=true;
DBEdit10->ReadOnly=true;
DBEdit11->ReadOnly=true;
DBEdit12->ReadOnly=true;
DBEdit13->ReadOnly=true;
DBRadioGroup1->ReadOnly=true;
AnsiString str;
for(int i=0;i<TreeView1->Items->Count;i++)
{ str=TreeView1->Items->Item[i]->Text;
if(str.SubString(1,6)==DBEdit1->Text.Trim())
{
str=DBEdit1->Text.Trim()+DBEdit13->Text.Trim();
TreeView1->Items->Item[i]->Text=str;
}
}
DM->ADOQ_KHinfo->Post();
}
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::canceltBtnClick(TObject *Sender)
{
if(!closeBtn->Enabled){
DM->ADOQ_KHinfo->Cancel();
editBtn->Caption="修改";
insertBtn->Caption="增加";
insertBtn->Enabled=true;
editBtn->Enabled=true;
printBtn->Enabled=true;
closeBtn->Enabled=true;
DBComboBox1->ReadOnly=true;
DBEdit2->ReadOnly=true;
DBEdit3->ReadOnly=true;
DBEdit4->ReadOnly=true;
DBEdit5->ReadOnly=true;
DBEdit6->ReadOnly=true;
DBEdit7->ReadOnly=true;
DBEdit8->ReadOnly=true;
DBEdit9->ReadOnly=true;
DBEdit10->ReadOnly=true;
DBEdit11->ReadOnly=true;
DBEdit12->ReadOnly=true;
DBEdit13->ReadOnly=true;
DBRadioGroup1->ReadOnly=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TKHForm::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
if(TreeView1->Selected->IsFirstNode())
{
DM->ADOQ_KHinfo->Close();
DM->ADOQ_KHinfo->SQL->Clear();
DM->ADOQ_KHinfo->SQL->Add("select * from 客户资料表");
DM->ADOQ_KHinfo->Open();
}else if(TreeView1->Selected->Level==1){
DM->ADOQ_KHinfo->Close();
DM->ADOQ_KHinfo->SQL->Clear();
AnsiString str="select * from 客户资料表 where 地区名称='";
str+=TreeView1->Selected->Text;
str+="'";
DM->ADOQ_KHinfo->SQL->Add(str);
DM->ADOQ_KHinfo->Open();
}else{
DM->ADOQ_KHinfo->Close();
DM->ADOQ_KHinfo->SQL->Clear();
AnsiString str=TreeView1->Selected->Text;
str="select * from 客户资料表 where 编号="+str.SubString(1,6);
DM->ADOQ_KHinfo->SQL->Add(str);
DM->ADOQ_KHinfo->Open();
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -