bmwage.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "BMwage.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBMwageForm *BMwageForm;
//---------------------------------------------------------------------------
__fastcall TBMwageForm::TBMwageForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TBMwageForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        DM->ADOQ->Close();
}
//---------------------------------------------------------------------------

void __fastcall TBMwageForm::FormCreate(TObject *Sender)
{
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        DM->ADOQ->SQL->Add("select 部门名称 from 部门信息表");
        DM->ADOQ->Open();
        DM->ADOQ->First();
        while(!DM->ADOQ->Eof){
                 ComboBox1->Items->Add(DM->ADOQ->FieldByName("部门名称")->AsString.Trim());
                 DM->ADOQ->Next();
        }
        DM->ADOQ->Close();
}
//---------------------------------------------------------------------------

void __fastcall TBMwageForm::BitBtn1Click(TObject *Sender)
{
       Close(); 
}
//---------------------------------------------------------------------------

void __fastcall TBMwageForm::ComboBox1Change(TObject *Sender)
{
        AnsiString str=Date1->Date.DateString();
        AnsiString str1=str.SubString(1,4);
        str=str.SubString(6,str.Length()-5);
        AnsiString str2=str.SubString(1,str.Pos('-')-1);
        str=str1+"年"+str2+"月";
        int n=Now().CurrentDate()-Date1->Date;
        if(n<0)
        {
                  ShowMessage("日期超限");
                  return;
        }
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        AnsiString query="select * from 工资信息表 where 月份='";
        query+=str;
        query+="' and 部门='";
        query+=ComboBox1->Text;
        query+="'";
        DM->ADOQ->SQL->Add(query);
        DM->ADOQ->Open();
        DBGrid1->DataSource=DM->DS;
}
//---------------------------------------------------------------------------