jsinfo.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "JSinfo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TJSForm *JSForm;
//---------------------------------------------------------------------------
__fastcall TJSForm::TJSForm(TComponent* Owner)
        : TForm(Owner)
{
        n=-1;
}
//---------------------------------------------------------------------------

void __fastcall TJSForm::FormCreate(TObject *Sender)
{
       DM->ADOQ_JS->Close();
       DM->ADOQ_JS->SQL->Clear();
       DM->ADOQ_JS->SQL->Add("select * from 用户角色信息表");
       DM->ADOQ_JS->Open();

       DM->ADOQ->Close();
       DM->ADOQ->SQL->Clear();
       AnsiString str="select * from 权限列表 where 角色名称='";
       str+=DM->ADOQ_JS->FieldByName("角色名称")->AsString.Trim()+"'";
       DM->ADOQ->SQL->Add(str);
       DM->ADOQ->Open();
         
       for(int i=0;i<CheckListBox1->Items->Count;i++)
                if(DM->ADOQ->Fields->FieldByNumber(i+3)->AsString=="True")
                        CheckListBox1->Checked[i]=true;
                else
                        CheckListBox1->Checked[i]=false;
       DM->ADOQ->Close();
}
//---------------------------------------------------------------------------

void __fastcall TJSForm::insertBtnClick(TObject *Sender)
{
       if(insertBtn->Caption=="新增")
        {       n=0;
                insertBtn->Caption="存盘";
                editBtn->Caption="取消";
                closeBtn->Enabled=false;
                DBEdit2->ReadOnly=false;
                
                int num;
                if(DM->ADOQ_JS->RecordCount==0)
                         num=1001;
                else{
                        DM->ADOQ_JS->Last();
                        num=DM->ADOQ_JS->FieldByName("角色代码")->AsInteger+1;

                }
                DM->ADOQ_JS->Insert();
                DM->ADOQ_JS->FieldByName("角色代码")->AsInteger=num;
        }else{
                insertBtn->Caption="新增";
                editBtn->Caption="修改";
                closeBtn->Enabled=true;
                DBEdit2->ReadOnly=true;

                if(n==0){
                        DM->ADOQ->Close();
                        DM->ADOQ->SQL->Clear();
                        DM->ADOQ->SQL->Add("select * from 权限列表");
                        DM->ADOQ->Open();
                        DM->ADOQ->Insert();
                        DM->ADOQ->FieldByName("角色名称")->Value=DBEdit1->Text;
                }else if(n==1){
                        DM->ADOQ->Close();
                        DM->ADOQ->SQL->Clear();
                        AnsiString str="select * from 权限列表 where 角色名称='";
                        str+=DBEdit1->Text.Trim()+"'";
                        DM->ADOQ->SQL->Add(str);
                        DM->ADOQ->Open();
                        DM->ADOQ->Edit();
                }
                for(int i=0;i<CheckListBox1->Items->Count;i++)
                        if(CheckListBox1->Checked[i])
                                   DM->ADOQ->Fields->FieldByNumber(i+3)->Value=true;
                DM->ADOQ->Post();
                DM->ADOQ->Close();
                
                DM->ADOQ_JS->Post();
        }
}
//---------------------------------------------------------------------------

void __fastcall TJSForm::editBtnClick(TObject *Sender)
{
        if(editBtn->Caption=="修改")
        {       n=1;
                insertBtn->Caption="存盘";
                editBtn->Caption="取消";
                closeBtn->Enabled=false;
                DBEdit2->ReadOnly=false;
                DM->ADOQ_JS->Edit();
        }else{
                insertBtn->Caption="新增";
                editBtn->Caption="修改";
                closeBtn->Enabled=true;
                DBEdit2->ReadOnly=true;
                DM->ADOQ_JS->Cancel();
        }
}
//---------------------------------------------------------------------------

void __fastcall TJSForm::closeBtnClick(TObject *Sender)
{

         Close();
}
//---------------------------------------------------------------------------




void __fastcall TJSForm::DBLookupListBox1Click(TObject *Sender)
{
         DM->ADOQ->Close();
         DM->ADOQ->SQL->Clear();
         AnsiString str="select * from 权限列表 where 角色名称='";
         str+=DBLookupListBox1->SelectedItem+"'";
         DM->ADOQ->SQL->Add(str);
         DM->ADOQ->Open();
         
         for(int i=0;i<CheckListBox1->Items->Count;i++)
                        if(DM->ADOQ->Fields->FieldByNumber(i+3)->AsString=="True")
                                   CheckListBox1->Checked[i]=true;
                        else
                                   CheckListBox1->Checked[i]=false;
         DM->ADOQ->Close();
}
//---------------------------------------------------------------------------


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