unit_filewh.cpp

本系统里面包含数据库（SQL SERVER2000）

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileWh.h"
#include "Unit_DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileWhfrm *FileWhfrm;
//---------------------------------------------------------------------------
__fastcall TFileWhfrm::TFileWhfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileWhfrm::BitBtn5Click(TObject *Sender)
{
  if(BitBtn3->Enabled)
  {
    ShowMessage("请保存后退出!!");
    return;
  }
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFileWhfrm::FormCreate(TObject *Sender)
{
  DM->DataWh->Close();
  if(RadioGroup1->ItemIndex==0)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="KS";
  if(RadioGroup1->ItemIndex==1)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="XL";
  if(RadioGroup1->ItemIndex==2)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="JB";
  if(RadioGroup1->ItemIndex==3)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="LB";
  if(RadioGroup1->ItemIndex==4)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="ZC";
  if(RadioGroup1->ItemIndex==5)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="ZW";
  DM->DataWh->Open();
}
//---------------------------------------------------------------------------

void __fastcall TFileWhfrm::RadioGroup1Click(TObject *Sender)
{
  DM->DataWh->Close();
  if(RadioGroup1->ItemIndex==0)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="KS";
  if(RadioGroup1->ItemIndex==1)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="XL";
  if(RadioGroup1->ItemIndex==2)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="JB";
  if(RadioGroup1->ItemIndex==3)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="LB";
  if(RadioGroup1->ItemIndex==4)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="ZC";
  if(RadioGroup1->ItemIndex==5)
  DM->DataWh->Parameters->ParamByName("mflag")->Value="ZW";
  DM->DataWh->Open();
}
//---------------------------------------------------------------------------

void __fastcall TFileWhfrm::BitBtn1Click(TObject *Sender)
{
  DBGrid1->ReadOnly =false;
  DM->DataWh->Append();
  if(RadioGroup1->ItemIndex==0)
  DM->DataWhflag->Value="KS";
  if(RadioGroup1->ItemIndex==1)
  DM->DataWhflag->Value="XL";
  if(RadioGroup1->ItemIndex==2)
  DM->DataWhflag->Value="JB";
  if(RadioGroup1->ItemIndex==3)
  DM->DataWhflag->Value="LB";
  if(RadioGroup1->ItemIndex==4)
  DM->DataWhflag->Value="ZC";
  if(RadioGroup1->ItemIndex==5)
  DM->DataWhflag->Value="ZW";
  BitBtn1->Enabled =false;
  BitBtn2->Enabled =false;
  BitBtn3->Enabled =true;
  BitBtn4->Enabled =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileWhfrm::BitBtn2Click(TObject *Sender)
{
  BitBtn1->Enabled =false;
  BitBtn2->Enabled =false;
  BitBtn3->Enabled =true;
  BitBtn4->Enabled =false;
  DBGrid1->ReadOnly =false;
  DM->DataWh->Edit();      
}
//---------------------------------------------------------------------------

void __fastcall TFileWhfrm::BitBtn3Click(TObject *Sender)
{
  DM->DataWh->Edit();
  DM->DataWh->Post();
  BitBtn1->Enabled =true;
  BitBtn2->Enabled =true;
  BitBtn3->Enabled =false;
  BitBtn4->Enabled =true;
  DBGrid1->ReadOnly =true;
}
//---------------------------------------------------------------------------

void __fastcall TFileWhfrm::BitBtn4Click(TObject *Sender)
{
  if(MessageDlg("删除编号："+DM->DataWhname->Value.Trim()+"吗?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
  {
    DM->DataWh->Delete();
  }
}
//---------------------------------------------------------------------------