sqbunit.cpp

该软件为计算机公司进销存管理系统。方便公司管理人员对进货、出货和库存产品的管理和维护。

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

#include <vcl.h>
#pragma hdrstop

#include "SqbUnit.h"
#include "DModUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSqbForm *SqbForm;
//---------------------------------------------------------------------------
__fastcall TSqbForm::TSqbForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSqbForm::FormShow(TObject *Sender)
{
    try
    {
        SQLStr = "select * from sqb";
        DisplayData(SQLStr,"0","不能正确显示数据");
    }
    catch(...)
    {
        ;
    }


}
//---------------------------------------------------------------------------
void __fastcall TSqbForm::BitBtn4Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TSqbForm::DBGrid1CellClick(TColumn *Column)
{
    try
    {
        AnsiString Sex;
        if(!DMod->Query1->Eof){
            EditBh->Text = Trim((AnsiString)(DMod->Query1->FieldValues["bh"]));
            SelBh = EditBh->Text;
            EditName->Text = Trim((AnsiString)(DMod->Query1->FieldValues["name"]));
            Sex = Trim((AnsiString)(DMod->Query1->FieldValues["sex"] ));
            if (Sex == "男")RadioGroup1->ItemIndex = 0;
            else RadioGroup1->ItemIndex = 1;
            EditSfz->Text = Trim((AnsiString)(DMod->Query1->FieldValues["sfzbh"]));
            EditPo->Text = Trim((AnsiString)(DMod->Query1->FieldValues["po"]));
            EditPosfzbh->Text = Trim((AnsiString)(DMod->Query1->FieldValues["posfzbh"]));
            EditLxdh->Text = Trim((AnsiString)(DMod->Query1->FieldValues["phone"]));
            EditTxdz->Text = Trim((AnsiString)(DMod->Query1->FieldValues["address"]));
            EditYzbm->Text = Trim((AnsiString)(DMod->Query1->FieldValues["yzbm"]));
            EditEmail->Text = Trim((AnsiString)(DMod->Query1->FieldValues["email"]));
            DateTimePicker1->Date = DMod->Query1->FieldValues["rq"];
            EditFxz->Text = Trim((AnsiString)(DMod->Query1->FieldValues["fxz"]));
            EditDnbh->Text = Trim((AnsiString)(DMod->Query1->FieldValues["dnbh"]));
        }
    }
    catch(...)
    {
        ShowMessage("不能正确显示数据");
    }


}
//---------------------------------------------------------------------------
void __fastcall TSqbForm::BitBtn1Click(TObject *Sender)
{
    try
    {
        AnsiString Str,Sex,T;
        if(EditBh->Text == ""){
            ShowMessage("编号不能为空");
            return;
        }
        T = DateTimePicker1->Date.DateString();
        if (RadioGroup1->ItemIndex == 0 )Sex = "男";
        else Sex = "女";
        Str = "insert into sqb (bh,name,sex,sfzbh,po,posfzbh,phone,address,yzbm,email,rq,fxz,dnbh) values(";
        Str = Str + "'%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s')";
        SQLStr = Format(Str,OPENARRAY(TVarRec,(EditBh->Text,EditName->Text,Sex,EditSfz->Text,
                    EditPo->Text,EditPosfzbh->Text,EditLxdh->Text,EditTxdz->Text,
                    EditYzbm->Text,EditEmail->Text,T,EditFxz->Text,EditDnbh->Text)));
        DMod->ExecuteSQL(SQLStr,"不能正确增加申请人信息");
        DisplayData("select * from sqb",EditBh->Text,"不能正确显示数据");
    }
    catch(...)
    {
        ShowMessage("不能正确增加数据");
    }


}
//---------------------------------------------------------------------------
void __fastcall TSqbForm::EditSfzKeyPress(TObject *Sender, char &Key)
{
    if((Key < '0' || Key > '9') && Key != VK_BACK ) Key = 0;
}
//---------------------------------------------------------------------------

//打开数据集 SQLStr 要执行的SQL语句 LQuery 打开数据集使用的Query ErrorStr 程序出现异常时的提示信息
void __fastcall TSqbForm::DisplayData(AnsiString SQLStr,AnsiString Bh,AnsiString ErrorStr)
{
    try
    {
        TLocateOptions Opts;

        Opts.Clear();
        Opts << loPartialKey;
        Variant locvalues[1];
        locvalues[0] = Variant(Bh);

        DMod->Query1->Close();
        DMod->Query1->SQL->Clear();
        DMod->Query1->SQL->Add(SQLStr);
        DMod->Query1->Open();

        if (! DMod->Query1->Eof)
                DMod->Query1->Locate("bh", locvalues[0], Opts);
    }
    catch(...)
    {
        ShowMessage(ErrorStr);
    }

}

void __fastcall TSqbForm::BitBtn3Click(TObject *Sender)
{
    try
    {
        if(SelBh == ""){
            ShowMessage("请选择要删除的记录");
            return;
        }
        if(Application->MessageBox("真的要删除记录吗", "提示", MB_OKCANCEL)== IDOK){

            SQLStr = Format("delete from sqb where bh='%s'",OPENARRAY(TVarRec,(SelBh)));
            DMod->ExecuteSQL(SQLStr,"不能正确删除数据") ;
            EditBh->Text = "";
            EditName->Text = "";
            EditSfz->Text = "";
            EditPo->Text = "";
            EditPosfzbh->Text = "";
            EditLxdh->Text = "";
            EditTxdz->Text = "";
            EditYzbm->Text = "";
            EditEmail->Text = "";
            DateTimePicker1->Date = Now();
            EditFxz->Text = "";
            EditDnbh->Text = "";
            DisplayData("select * from sqb",EditBh->Text,"不能正确显示数据");
        }
    }
    catch(...)
    {
        ShowMessage("不能正确删除数据");
    }


}
//---------------------------------------------------------------------------

void __fastcall TSqbForm::BitBtn2Click(TObject *Sender)
{
    try
    {
        AnsiString Str,Sex,T;
        if(SelBh == ""){
            ShowMessage("没有选中要更新的记录");
            return;
        }
        if(EditBh->Text == ""){
            ShowMessage("编号不能为空");
            return;
        }
        T = DateTimePicker1->Date.DateString();
        if (RadioGroup1->ItemIndex == 0 )Sex = "男";
        else Sex = "女";
        Str = "update sqb set bh='%s',name='%s',sex='%s',sfzbh='%s',po='%s',posfzbh='%s',";
        Str = Str + "phone='%s',address='%s',yzbm='%s',email='%s',rq='%s',fxz='%s',dnbh='%s' ";
        Str = Str + "where bh='%s'";
        SQLStr = Format(Str,OPENARRAY(TVarRec,(EditBh->Text,EditName->Text,Sex,EditSfz->Text,
                    EditPo->Text,EditPosfzbh->Text,EditLxdh->Text,EditTxdz->Text,
                    EditYzbm->Text,EditEmail->Text,T,EditFxz->Text,EditDnbh->Text,SelBh)));
        DMod->ExecuteSQL(SQLStr,"不能正确修改申请人信息");
        DisplayData("select * from sqb",EditBh->Text,"不能正确显示数据");
    }
    catch(...)
    {
        ShowMessage("不能正确修改数据");
    }
}
//---------------------------------------------------------------------------