workinfo.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "workinfo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TworkForm *workForm;
//---------------------------------------------------------------------------
__fastcall TworkForm::TworkForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::FormCreate(TObject *Sender)
{
        DM->ADO_YG->Close();
        DM->ADO_YG->SQL->Clear();
        DM->ADO_YG->SQL->Add("select * from 员工信息表");
        DM->ADO_YG->Open();

        DM->ADOQ_BM->Close();
        DM->ADOQ_BM->SQL->Clear();
        DM->ADOQ_BM->SQL->Add("select * from 部门信息表");
        DM->ADOQ_BM->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;
        while(!DM->ADOQ_BM->Eof)
        {
                str=DM->ADOQ_BM->FieldByName("部门名称")->AsString;
                DBComboBox2->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_BM->Next();
        }
        DM->ADOQ_BM->Close();
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::insertBtnClick(TObject *Sender)
{
       if(insertBtn->Caption=="新增")
       {
                  insertBtn->Caption="存盘";
                  DBEdit2->ReadOnly=false;
                  DBEdit3->ReadOnly=false;
                  DBEdit4->ReadOnly=false;
                  DBEdit5->ReadOnly=false;
                  DBEdit6->ReadOnly=false;
                  DBEdit7->ReadOnly=false;
                  DBComboBox1->ReadOnly=false;
                  DBComboBox2->ReadOnly=false;
                  editBtn->Enabled=false;
                  //cancelBtn->Enabled=false;
                  closeBtn->Enabled=false;
                  DM->ADO_YG->Last();
                  int n;     //n<65536
                  if(DM->ADO_YG->RecordCount==0)
                        n=10001;
                  else
                        n=DM->ADO_YG->FieldByName("编号")->AsInteger+1;
                  //ShowMessage(n);
                  DM->ADO_YG->Insert();
                  DM->ADO_YG->FieldByName("编号")->AsInteger=n;
       }else{
                  insertBtn->Caption="新增";
                  DBEdit2->ReadOnly=true;
                  DBEdit3->ReadOnly=true;
                  DBEdit4->ReadOnly=true;
                  DBEdit5->ReadOnly=true;
                  DBEdit6->ReadOnly=true;
                  DBEdit7->ReadOnly=true;
                  DBComboBox1->ReadOnly=true;
                  DBComboBox2->ReadOnly=true;
                  editBtn->Enabled=true;
                  //cancelBtn->Enabled=true;
                  closeBtn->Enabled=true;
                  //新增树结点
                  TTreeNode *rNode;
                  AnsiString str=DBComboBox2->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()+DBEdit2->Text.Trim();
                                rNode=TreeView1->Items->Item[i];
                                TreeView1->Items->AddChild(rNode,str);
                        }
                  DM->ADO_YG->Post();
       }
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::editBtnClick(TObject *Sender)
{
       if(editBtn->Caption=="修改")
       {
                  editBtn->Caption="存盘";
                  DBEdit2->ReadOnly=false;
                  DBEdit3->ReadOnly=false;
                  DBEdit4->ReadOnly=false;
                  DBEdit5->ReadOnly=false;
                  DBEdit6->ReadOnly=false;
                  DBEdit7->ReadOnly=false;
                  DBComboBox1->ReadOnly=false;
                  DBComboBox2->ReadOnly=false;
                  insertBtn->Enabled=false;
                  //cancelBtn->Enabled=false;
                  closeBtn->Enabled=false;
                  DM->ADO_YG->Edit();
       }else{
                  editBtn->Caption="修改";
                  DBEdit2->ReadOnly=true;
                  DBEdit3->ReadOnly=true;
                  DBEdit4->ReadOnly=true;
                  DBEdit5->ReadOnly=true;
                  DBEdit6->ReadOnly=true;
                  DBEdit7->ReadOnly=true;
                  DBComboBox1->ReadOnly=true;
                  DBComboBox2->ReadOnly=true;
                  insertBtn->Enabled=true;
                  //cancelBtn->Enabled=true;
                  closeBtn->Enabled=true;
                  //修改树结点
                  AnsiString str;
                  for(int i=0;i<TreeView1->Items->Count;i++)
                  {     str=TreeView1->Items->Item[i]->Text;
                        if(str.SubString(1,5)==DBEdit1->Text.Trim())
                        {
                                str=DBEdit1->Text.Trim()+DBEdit2->Text.Trim();
                                TreeView1->Items->Item[i]->Text=str;
                        }
                  }

                  DM->ADO_YG->Post();
       }
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::cancelBtnClick(TObject *Sender)
{
        if(!closeBtn->Enabled)
        {
                  DM->ADO_YG->Cancel();
                  editBtn->Caption="修改";
                  insertBtn->Caption="新增";
                  DBEdit2->ReadOnly=true;
                  DBEdit3->ReadOnly=true;
                  DBEdit4->ReadOnly=true;
                  DBEdit5->ReadOnly=true;
                  DBEdit6->ReadOnly=true;
                  DBEdit7->ReadOnly=true;
                  DBComboBox1->ReadOnly=true;
                  DBComboBox2->ReadOnly=true;
                  editBtn->Enabled=true;
                  insertBtn->Enabled=true;
                  closeBtn->Enabled=true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::closeBtnClick(TObject *Sender)
{
       DM->ADO_YG->Close();
       Close();
}
//---------------------------------------------------------------------------
void __fastcall TworkForm::TreeView1Change(TObject *Sender,
      TTreeNode *Node)
{
       if(TreeView1->Selected->IsFirstNode())
       {
                DM->ADO_YG->Close();
                DM->ADO_YG->SQL->Clear();
                DM->ADO_YG->SQL->Add("select * from 员工信息表");
                DM->ADO_YG->Open();
       }else if(TreeView1->Selected->Level==1){
                DM->ADO_YG->Close();
                DM->ADO_YG->SQL->Clear();
                AnsiString str="select * from 员工信息表 where 部门='";
                str+=TreeView1->Selected->Text;
                str+="'";
                DM->ADO_YG->SQL->Add(str);
                DM->ADO_YG->Open();
       }else{
                DM->ADO_YG->Close();
                DM->ADO_YG->SQL->Clear();
                AnsiString str=TreeView1->Selected->Text;
                str="select * from 员工信息表 where 编号="+str.SubString(1,5);
                DM->ADO_YG->SQL->Add(str);
                DM->ADO_YG->Open();
       }
}
//---------------------------------------------------------------------------

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