📄 unit_serviceeconbuycard.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Unit_ServiceEconBuyCard;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatEditUnit, TFlatComboBoxUnit, TFlatButtonUnit, ExtCtrls,
  TFlatPanelUnit, ComCtrls, Grids, DBGrids, Db, DBTables, TFlatMemoUnit;

type
  TFrm_ServiceEconBuyCard = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    Label2: TLabel;
    FlatButtonok: TFlatButton;
    FlatEdvip1: TFlatEdit;
    TabSheet2: TTabSheet;
    DBGridT_F_CustInfo1: TDBGrid;
    DataSourceT_F_CustInfo1: TDataSource;
    QueryT_F_CustInfo1: TQuery;
    FlatPanel1: TFlatPanel;
    FlatPanel4: TFlatPanel;
    Label15: TLabel;
    Queryt_f_groupinto1: TQuery;
    DataSourcet_f_groupinfo1: TDataSource;
    Label17: TLabel;
    Flatvip2: TFlatEdit;
    FlatComboBoxgr: TFlatComboBox;
    FlatEditjtyhmc: TFlatEdit;
    DBGridt_f_groupinto11: TDBGrid;
    FlatPanel3: TFlatPanel;
    DBGridT_F_ServiceLog1: TDBGrid;
    FlatPanel5: TFlatPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    FlatEditServiceCode: TFlatEdit;
    FlatEditvip_no: TFlatEdit;
    FlatEditObjName: TFlatEdit;
    FlatEditBeginTime: TFlatEdit;
    FlatEditAmount: TFlatEdit;
    FlatEditRate: TFlatEdit;
    FlatEditServMoney: TFlatEdit;
    FlatMemoServCont: TFlatMemo;
    FlatEditTax: TFlatEdit;
    FlatEditWk_No: TFlatEdit;
    QueryT_F_ServiceLog1: TQuery;
    DataSourceT_F_ServiceLog1: TDataSource;
    Querytemp: TQuery;
    FlatPanel6: TFlatPanel;
    Panel1: TPanel;
    FlatButton7: TFlatButton;
    Panel2: TPanel;
    FlatButton2: TFlatButton;
    FlatButton1: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButtoncancel: TFlatButton;
    procedure FormShow(Sender: TObject);
    procedure FlatButtoncancelClick(Sender: TObject);
    procedure FlatButtonokClick(Sender: TObject);
    procedure FlatEditServMoneyKeyPress(Sender: TObject; var Key: Char);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure DataSourceT_F_CustInfo1DataChange(Sender: TObject;
      Field: TField);
    procedure DataSourceT_F_ServiceLog1DataChange(Sender: TObject;
      Field: TField);
    procedure FlatButton7Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure DataSourcet_f_groupinfo1DataChange(Sender: TObject;
      Field: TField);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatEditBeginTimeKeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdvip1KeyPress(Sender: TObject; var Key: Char);
    procedure Flatvip2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBoxgrChange(Sender: TObject);
  private
    { Private declarations }
    procedure color_set(flag:tcolor);
    procedure clear_in;
    procedure enabled_set(flag:boolean);
    procedure enable_(flag:boolean);
    procedure select_;
  public
    { Public declarations }
  end;

var
  Frm_ServiceEconBuyCard: TFrm_ServiceEconBuyCard;
  do1 :string;
implementation
 uses main,dmmain;
{$R *.DFM}

procedure TFrm_ServiceEconBuyCard.FormShow(Sender: TObject);
begin
FlatComboBoxgr.itemindex:=0;
end;

procedure TFrm_ServiceEconBuyCard.FlatButtoncancelClick(Sender: TObject);
begin
close; 
end;

procedure TFrm_ServiceEconBuyCard.FlatButtonokClick(Sender: TObject);
begin
with QueryT_F_CustInfo1 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(+) ');
   if FlatComboBoxgr.ItemIndex=0 then
      begin
        sql.add(' and A.SID=:SID');
        parambyname('SID').asstring:=trim(FlatEdvip1.text);
      end
      else
      begin
        sql.add(' and a.VIP_NO=:VIP_NO');
        parambyname('VIP_NO').asstring:=trim(FlatEdvip1.text);
      end;
      open;
      if QueryT_F_CustInfo1.bof and QueryT_F_CustInfo1.eof then
      begin
        Application.MessageBox('你输入的客户在数据库里没有查找到！','提示',MB_OK+MB_ICONINFORMATION);
        exit;
      end
        else
        begin
          FlatButton1.enabled := true;
          FlatButton2.enabled := true;
          FlatButton3.enabled := true;
        end;

end;
end;

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

procedure TFrm_ServiceEconBuyCard.color_set(flag:tcolor);
begin
//FlatEditvip_no.colorflat:=flag;
FlatEditObjName.colorflat:=flag;
FlatEditBeginTime.colorflat:=flag;
FlatEditServMoney.colorflat:=flag;
FlatEditAmount.colorflat:=flag;
FlatEditRate.colorflat:=flag;
FlatEditTax.colorflat:=flag;
FlatMemoServCont.colorflat:=flag;
end;


procedure TFrm_ServiceEconBuyCard.clear_in;
begin
FlatEditServiceCode.text:='';
FlatEditvip_no.text:='';
FlatEditObjName.text:='';
FlatEditBeginTime.text:='';
FlatEditServMoney.text:='';
FlatEditAmount.text:='';
FlatEditRate.text:='';
FlatEditTax.text:='';
FlatEditWk_No.text:='';
FlatMemoServCont.text:='';
end;

procedure TFrm_ServiceEconBuyCard.enabled_set(flag:boolean);
begin
//FlatEditvip_no.enabled:=flag;
FlatEditBeginTime.enabled:=flag;
FlatEditServMoney.enabled:=flag;
FlatEditAmount.enabled:=flag;
FlatEditRate.enabled:=flag;
FlatEditTax.enabled:=flag;
FlatMemoServCont.enabled:=flag;
end;

procedure TFrm_ServiceEconBuyCard.FlatButton2Click(Sender: TObject);
begin
clear_in;
color_set(clwindow);
enabled_set(true);
enable_(false);
if querytemp.active then querytemp.close;
querytemp.sql.clear;
querytemp.sql.add('select  SEQ_servicecode.Nextval servicecode  from T_F_ServiceLog');
querytemp.open;
FlatEditServiceCode.text:=querytemp.fieldbyname('servicecode').asstring;
if PageControl1.ActivePageIndex=0 then
    begin
    FlatEditvip_no.text:=QueryT_F_CustInfo1.fieldbyname('vip_no').asstring;
    FlatEditObjName.text:=QueryT_F_CustInfo1.fieldbyname('sid').asstring;
    end
else
    begin
      FlatEditvip_no.text:=trim(Flatvip2.text);
      FlatEditObjName.text:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
    end;
FlatEditBeginTime.text:=formatdatetime('yyyy-mm-dd',date());
FlatEditServMoney.text:='0';
FlatEditAmount.text:='0';
FlatEditRate.text:='0';
FlatEditTax.text:='0';
FlatEditWk_No.text:=GH;
do1:='inster';
end;

procedure TFrm_ServiceEconBuyCard.enable_(flag:boolean);
begin
FlatButton1.enabled:=flag;
FlatButton2.enabled:=flag;
FlatButton3.enabled:=flag;
FlatButton4.enabled:=not flag;
FlatButton5.enabled:=not flag;
end;


procedure TFrm_ServiceEconBuyCard.FlatButton1Click(Sender: TObject);
begin
if not QueryT_F_ServiceLog1.active then  exit;
if  QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof then
//if QueryT_F_ServiceLog1.recordcount<=0 then
begin
   Application.MessageBox('对不起，当前没有记录可修改！','提示',MB_OK+MB_ICONINFORMATION);
   exit;
end;
color_set(clwindow);
enabled_set(true);
enable_(false);
do1:='update';
end;

procedure TFrm_ServiceEconBuyCard.FlatButton3Click(Sender: TObject);
begin
if not QueryT_F_ServiceLog1.active then  exit;
if  QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof then
//if QueryT_F_ServiceLog1.recordcount<=0 then
begin
   Application.MessageBox('对不起，当前没有记录可删除！','提示',MB_OK+MB_ICONINFORMATION);
   exit;
end;
if (Application.MessageBox('是否要删除该记录?','提示',MB_OKCANCEL+MB_ICONINFORMATION)=id_ok)  then
with querytemp do
begin
   if active then close;
    sql.clear;
    sql.add('delete from T_F_ServiceLog where SERVICECODE=:SERVICECODE');
    parambyname('SERVICECODE').asinteger:=QueryT_F_ServiceLog1.FieldByName('SERVICECODE').asinteger;
    QueryT_F_ServiceLog1.close;
    execsql;
    QueryT_F_ServiceLog1.open;
end;
if QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof then
//if QueryT_F_ServiceLog1.recordcount=0 then
FlatButton2.enabled:=true;
end;

procedure TFrm_ServiceEconBuyCard.FlatButton5Click(Sender: TObject);
begin
  try
    strtodate(FlatEditBeginTime.Text);
  except
    Application.MessageBox('对不起，您输入的格式错误，输入的日期格式应为:YYYY-MM-DD', '系统提示', MB_OK+MB_ICONERROR);
    FlatEditBeginTime.SetFocus;
    Exit;
  end;
if (Application.MessageBox('是否要继续以下操作?','提示',MB_OKCANCEL+MB_ICONINFORMATION)<>id_ok)  then exit;
Dm_Main.Databasedh.StartTransaction;
QueryT_F_ServiceLog1.close;
with querytemp do
begin
if active then Close;
   sql.clear;
  if do1='inster' then
   begin
    sql.add('insert into T_F_ServiceLog(');
    sql.add('ServiceCode,CityNo,Off_No_Home,ObjType,TypeCode,ServKind,ObjFlag,VIP_NO,ServObj,');
    sql.add('ObjName,BeginTime,Amount,Rate,ServMoney,Tax,Wk_No,ServCont) values(');
    sql.add(':ServiceCode,:CityNo,:Off_No_Home,:ObjType,:TypeCode,:ServKind,:ObjFlag,:VIP_NO,:ServObj,');
    sql.add(':ObjName,to_date(:BeginTime,''yyyy-mm-dd''),:Amount,:Rate,:ServMoney,:Tax,:Wk_No,:ServCont)');
    parambyname('ServiceCode').asstring:=trim(FlatEditServiceCode.text);
    if PageControl1.ActivePageIndex=0 then
      begin
       parambyname('CityNo').asinteger:=QueryT_F_CustInfo1.fieldbyname('CityNo').asinteger;
       parambyname('Off_No_Home').asinteger:=QueryT_F_CustInfo1.fieldbyname('Off_No_Home').asinteger;
      end
12 下一页
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

#delphi #oracle #中国移动 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -