qxinfo.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "QXinfo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TQXForm *QXForm;
//---------------------------------------------------------------------------
__fastcall TQXForm::TQXForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TQXForm::FormCreate(TObject *Sender)
{
       DM->ADOQ_user->Close();
       DM->ADOQ_user->SQL->Clear();
       DM->ADOQ_user->SQL->Add("select * from 用户信息表");
       DM->ADOQ_user->Open();

       DM->ADOQ_JS->Close();
       DM->ADOQ_JS->SQL->Clear();
       DM->ADOQ_JS->SQL->Add("select * from 用户角色信息表");
       DM->ADOQ_JS->Open();
       DBRadioGroup1->Items->Add("超级用户");
       while(!DM->ADOQ_JS->Eof)
       {
                DBRadioGroup1->Items->Add(DM->ADOQ_JS->FieldByName("角色名称")->AsString);
                DM->ADOQ_JS->Next();
       }
       DM->ADOQ_JS->Close();
}
//---------------------------------------------------------------------------
void __fastcall TQXForm::insertBtnClick(TObject *Sender)
{
       if(insertBtn->Caption=="新增")
        {
                insertBtn->Caption="存盘";
                editBtn->Caption="取消";
                closeBtn->Enabled=false;
                DBEdit2->ReadOnly=false;
                DBEdit3->ReadOnly=false;
                DBRadioGroup1->ReadOnly=false;
                int num;
                if(DM->ADOQ_user->RecordCount==0)
                         num=101;
                else{
                        DM->ADOQ_user->Last();
                        num=DM->ADOQ_user->FieldByName("用户编码")->AsInteger+1;
                }
                DM->ADOQ_user->Insert();
                DM->ADOQ_user->FieldByName("用户编码")->AsInteger=num;
        }else{
                insertBtn->Caption="新增";
                editBtn->Caption="修改";
                closeBtn->Enabled=true;
                DBEdit2->ReadOnly=true;
                DBEdit3->ReadOnly=true;
                DBRadioGroup1->ReadOnly=true;
                DM->ADOQ_user->Post();
        }
}
//---------------------------------------------------------------------------
void __fastcall TQXForm::editBtnClick(TObject *Sender)
{
        if(editBtn->Caption=="修改")
        {
                insertBtn->Caption="存盘";
                editBtn->Caption="取消";
                closeBtn->Enabled=false;
                DBEdit2->ReadOnly=false;
                DBEdit3->ReadOnly=false;
                DBRadioGroup1->ReadOnly=false;
                DM->ADOQ_user->Edit();
        }else{
                insertBtn->Caption="新增";
                editBtn->Caption="修改";
                closeBtn->Enabled=true;
                DBEdit2->ReadOnly=true;
                DBEdit3->ReadOnly=true;
                DBRadioGroup1->ReadOnly=true;
                DM->ADOQ_user->Cancel();
        }
}
//---------------------------------------------------------------------------
void __fastcall TQXForm::closeBtnClick(TObject *Sender)
{
       
       Close();
}
//---------------------------------------------------------------------------

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