unit_serviceeconbuycard.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

    else
      begin
          parambyname('CityNo').asinteger:=Queryt_f_groupinto1.fieldbyname('CityNo').asinteger;
          parambyname('Off_No_Home').asinteger:=Queryt_f_groupinto1.fieldbyname('Off_No_Home').asinteger;
      end;
    parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
    parambyname('TypeCode').asinteger:=2;
    //parambyname('ModeCode').asinteger:=0;
    parambyname('ServKind').asinteger:=1;
    parambyname('ObjFlag').asinteger:=0;
    parambyname('VIP_NO').asstring:=trim(FlatEditvip_no.text);
    //parambyname('ServObj').asinteger:=0;
    //parambyname('ObjName').asstring:=trim(FlatEditObjName.text);
    //modify by h 2002.08.18
    if PageControl1.ActivePageIndex = 0 then
      begin
        parambyname('ServObj').AsString := QueryT_F_CustInfo1.FieldByName('Sid').AsString;
        parambyname('ObjName').AsString := QueryT_F_CustInfo1.FieldByName('Name').AsString;
      end
    else
      begin
        parambyname('ServObj').AsString := Queryt_f_groupinto1.FieldByName('Sid').AsString;
        //parambyname('ObjName').asstring:=trim(FlatEditObjName.text);
        parambyname('ObjName').AsString := Queryt_f_groupinto1.FieldByName('Name').AsString;
      end;
    if length(trim(FlatEditBeginTime.text))=10 then
        parambyname('BeginTime').asstring:=trim(FlatEditBeginTime.text)
    else
       parambyname('BeginTime').asstring:='1901-01-01';
    parambyname('Amount').asstring:=trim(FlatEditAmount.text);
    parambyname('Rate').asstring:=trim(FlatEditRate.text);
    parambyname('ServMoney').asstring:=trim(FlatEditServMoney.text);
    parambyname('Tax').asstring:=trim(FlatEditTax.text);
    parambyname('Wk_No').asstring:=trim(FlatEditWk_No.text);
    parambyname('ServCont').asstring:=trim(FlatMemoServCont.text);
    execsql;
   end;
  if do1='update' then
   begin
    sql.add('update T_F_ServiceLog set ');
    sql.add('VIP_NO=:VIP_NO,ObjName=:ObjName,BeginTime=to_date(:BeginTime,''yyyy-mm-dd''),Amount=:Amount,Rate=:Rate,ServMoney=:ServMoney,Tax=:Tax,Wk_No=:Wk_No,ServCont=:ServCont');
    sql.add(' where ServiceCode=:ServiceCode');
    parambyname('ServiceCode').asstring:=trim(FlatEditServiceCode.text);
    parambyname('VIP_NO').asstring:=trim(FlatEditvip_no.text);
    parambyname('ObjName').asstring:=trim(FlatEditObjName.text);
    if length(trim(FlatEditBeginTime.text))=10 then
        parambyname('BeginTime').asstring:=trim(FlatEditBeginTime.text)
    else
       parambyname('BeginTime').asstring:='1901-01-01';
    parambyname('Amount').asstring:=trim(FlatEditAmount.text);
    parambyname('Rate').asstring:=trim(FlatEditRate.text);
    parambyname('ServMoney').asstring:=trim(FlatEditServMoney.text);
    parambyname('Tax').asstring:=trim(FlatEditTax.text);
    parambyname('Wk_No').asstring:=gh;
    parambyname('ServCont').asstring:=trim(FlatMemoServCont.text);
    execsql;
   end;
Dm_Main.Databasedh.Commit;   
end;
if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
if PageControl1.ActivePageIndex=1 then
   QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
   QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
QueryT_F_ServiceLog1.open;
if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
//if QueryT_F_ServiceLog1.recordcount<>0 then
  select_ ;
color_set(clmenu);
enabled_set(false);
enable_(true);
end;

procedure TFrm_ServiceEconBuyCard.FlatButton4Click(Sender: TObject);
begin  
color_set(clmenu);
enabled_set(false);
enable_(true);
end;

procedure TFrm_ServiceEconBuyCard.select_;
begin
with QueryT_F_ServiceLog1 do
begin
    FlatEditServiceCode.text:=fieldbyname('ServiceCode').asstring;
    FlatEditvip_no.text:=fieldbyname('VIP_NO').asstring;
    FlatEditObjName.text:=fieldbyname('ObjName').asstring;
    FlatEditBeginTime.text:=fieldbyname('BeginTime').asstring;
    FlatEditAmount.text:=fieldbyname('Amount').asstring;
    FlatEditRate.text:=fieldbyname('Rate').asstring;
    FlatEditServMoney.text:=fieldbyname('ServMoney').asstring;
    FlatEditTax.text:=fieldbyname('Tax').asstring;
    FlatEditWk_No.text:=fieldbyname('Wk_No').asstring;
    FlatMemoServCont.text:=fieldbyname('ServCont').asstring;
end;
end;

procedure TFrm_ServiceEconBuyCard.DataSourceT_F_CustInfo1DataChange(Sender: TObject;
  Field: TField);
begin
if QueryT_F_CustInfo1.active then
if  not (QueryT_F_CustInfo1.bof and QueryT_F_CustInfo1.eof) then
//if QueryT_F_CustInfo1.recordcount>0 then
begin
   if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
   QueryT_F_ServiceLog1.parambyname('sid').asstring:=QueryT_F_CustInfo1.fieldbyname('sid').asstring;
   QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
   QueryT_F_ServiceLog1.open;
   if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
   //if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;
   exit;
end;
{   if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;              }
 QueryT_F_ServiceLog1.close;
 clear_in
end;

procedure TFrm_ServiceEconBuyCard.DataSourceT_F_ServiceLog1DataChange(Sender: TObject;
  Field: TField);
begin
 if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
 //if  QueryT_F_ServiceLog1.recordcount>0 then
    begin
     clear_in;
     select_ ;
     enable_(true);
    end
 else
     begin
         clear_in;
         FlatButton1.enabled:=false;
         FlatButton2.enabled:=true;
         FlatButton3.enabled:=false;
         FlatButton4.enabled:=false;
         FlatButton5.enabled:=false;
     end;
end;

procedure TFrm_ServiceEconBuyCard.FlatButton7Click(Sender: TObject);
begin
  if Queryt_f_groupinto1.Active then  Queryt_f_groupinto1.Close;
if querytemp.active then querytemp.close;
   querytemp.sql.clear;
   querytemp.sql.add('select * from t_f_groupinfo where vip_no='''+trim(Flatvip2.text)+'''');
   querytemp.open;
   if  querytemp.bof and querytemp.eof then
   //if  querytemp.recordcount=0 then
     begin
                        DataSourcet_f_groupinfo1DataChange(Sender,nil);
       PageControl1Change(nil);
       Application.MessageBox('对不起，没有找到该输入的贵宾卡相对应的集团！请检查输入是否正确？','提示',MB_OK+MB_ICONINFORMATION);
       exit;
     end ;
    FlatEditjtyhmc.text:=querytemp.fieldbyname('jtyhmc').asstring;    
with Queryt_f_groupinto1 do
begin
if active then close;
   sql.clear;
   sql.add('select a.CityNo,a.Off_No_Home,a.SID,a.VIP_NO,a.NAME,a.Act_User,b.par_desc,c.DESCRIPTION,a.GH  from t_f_custinfo a,t_v_custatt b,T_D_Grade c  where a.stat=b.sxdm and a.djdm=c.GRADENO');
   sql.add(' and A.jtyhdm=:jtyhdm');
   parambyname('jtyhdm').asinteger:=strtoint(trim(querytemp.fieldbyname('jtyhdm').asstring));
   open;
end;

if Queryt_f_groupinto1.active then
if  not (Queryt_f_groupinto1.bof and Queryt_f_groupinto1.eof) then
//if Queryt_f_groupinto1.recordcount<>0 then
begin
   if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
      QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
   QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
   QueryT_F_ServiceLog1.open;
   if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
   //if  QueryT_F_ServiceLog1.recordcount>0 then
   select_;
end;
DataSourcet_f_groupinfo1DataChange(sender,nil);
end;

procedure TFrm_ServiceEconBuyCard.PageControl1Change(Sender: TObject);
begin
{QueryT_F_CustInfo1.close;
Queryt_f_groupinto1.close;
QueryT_F_ServiceLog1.close;
clear_in;
FlatButton1.enabled:=false;
FlatButton2.enabled:=false;
FlatButton3.enabled:=false;
FlatButton4.enabled:=false;
FlatButton5.enabled:=false;}
  if PageControl1.ActivePageIndex = 0 then
    begin
      DataSourceT_F_CustInfo1DataChange(Sender,nil);
      if QueryT_F_CustInfo1.Active then
        if not QueryT_F_CustInfo1.Eof then
          begin
            FlatButton1.enabled:=True;
            FlatButton2.enabled:=True;
            FlatButton3.enabled:=True;
            FlatButton4.enabled:=False;
            FlatButton5.enabled:=false;
            exit;
          end
    end
  else
    begin
      DataSourcet_f_groupinfo1DataChange(Sender,nil);
      if Queryt_f_groupinto1.Active then
        if not Queryt_f_groupinto1.Eof then
          begin
            FlatButton1.enabled:=True;
            FlatButton2.enabled:=True;
            FlatButton3.enabled:=True;
            FlatButton4.enabled:=False;
            FlatButton5.enabled:=false;
            exit;
          end
    end;
            FlatButton1.enabled:=false;
            FlatButton2.enabled:=false;
            FlatButton3.enabled:=false;
            FlatButton4.enabled:=false;
            FlatButton5.enabled:=false;
    
end;

procedure TFrm_ServiceEconBuyCard.DataSourcet_f_groupinfo1DataChange(Sender: TObject;
  Field: TField);
begin
if Queryt_f_groupinto1.active then
if  not (Queryt_f_groupinto1.bof and Queryt_f_groupinto1.eof) then
//if Queryt_f_groupinto1.recordcount<>0 then
begin
   if QueryT_F_ServiceLog1.active then
      QueryT_F_ServiceLog1.close;
   QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
   QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
   QueryT_F_ServiceLog1.open;
   if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
   //if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;
   exit;
end;
{   if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;}
 QueryT_F_ServiceLog1.Close;
 clear_in;
end;

procedure TFrm_ServiceEconBuyCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrm_ServiceEconBuyCard.FlatEditBeginTimeKeyPress(
  Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #45, #13, #8]) then key := #0;
end;

procedure TFrm_ServiceEconBuyCard.FlatEdvip1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if FlatComboBoxgr.ItemIndex = 0 then
    if not (key in ['0'..'9', #13, #8]) then key := #0;
  if key = #13 then
    FlatButtonokClick(Sender);
end;

procedure TFrm_ServiceEconBuyCard.Flatvip2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    FlatButton7Click(Sender);
end;

procedure TFrm_ServiceEconBuyCard.FlatComboBoxgrChange(Sender: TObject);
begin
  FlatEdvip1.Clear;
  FlatEdvip1.Setfocus;
end;

end.