📄 jtyh.pas

📁 一个不错的源程序DELPHI开发的,功能比较好的客户管理系统
💻 PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
begin
if active then close;
          sql.clear;
          sql.add('select max(INFOCODE)+1 max_INFOCODE from t_f_CustInfoMember where jtyhdm=:jtyhdm');
          parambyname('jtyhdm').asstring:=trim(FlatEditjtyhdm1.text);
          open;
            if trim(fieldbyname('max_infocode').asstring)<>'' then
               FlatEditINFOCODE.text:=fieldbyname('max_infocode').asstring
            else
                FlatEditINFOCODE.text:='0';
end;
end;

procedure TForm_ArchivesGroupInfo.CustInfoMember_color(flag:tcolor);
begin
      FlatEditPHONE.colorflat:=flag;
      FlatEditINFOSID.colorflat:=flag;
      FlatEditINFONAME.colorflat:=flag;
      FlatEditINFOPOSTCODE.colorflat:=flag;
      FlatEditINFOBIRTH.colorflat:=flag;
      FlatEditINFOJOB.colorflat:=flag;
      FlatEditIDCARD.colorflat:=flag;
      FlatEditEMAIL.colorflat:=flag;
      FlatEditGH.colorflat:=flag;
      FlatEditINFOADDR.colorflat:=flag;
      FlatComboBoxEDUCODE.color:=flag;
      FlatComboBoxINFOGENDER.color:=flag;
end;
procedure TForm_ArchivesGroupInfo.CustInfoMember_enable(flag:boolean);
begin
      FlatEditPHONE.enabled:=flag;
      FlatEditINFOSID.enabled:=flag;
      FlatEditINFONAME.enabled:=flag;
      FlatEditINFOPOSTCODE.enabled:=flag;
      FlatEditINFOBIRTH.enabled:=flag;
      FlatEditINFOJOB.enabled:=flag;
      FlatEditIDCARD.enabled:=flag;
      FlatEditEMAIL.enabled:=flag;
      FlatEditGH.enabled:=flag;
      FlatEditINFOADDR.enabled:=flag;
      FlatComboBoxEDUCODE.enabled:=flag;
      FlatComboBoxINFOGENDER.enabled:=flag;
end;

procedure TForm_ArchivesGroupInfo.FlatButtonok1Click(Sender: TObject);
begin
DBGridCustInfoMember.enabled:=true;
N1.ENABLED:=true;
N2.ENABLED:=true;
N3.ENABLED:=true;
FlatButtonok1.enabled:=false;
FlatButtoncancel1.enabled:=false;
if  CustInfoMember_do_number='inster' then
 begin
        if (Application.MessageBox('是否要增加该用户？','提示',MB_OKCANCEL)=id_ok)  then
            insert_CustInfoMember;
 end;
if  CustInfoMember_do_number='update' then
 begin
        if (Application.MessageBox('是否要修改该用户资料？','提示',MB_OKCANCEL)=id_ok)  then
            update_CustInfoMember;
 end;

clear_CustInfoMember;
CustInfoMember_color(clmenu);
CustInfoMember_enable(false);
queryCustInfoMember.close;
queryCustInfoMember.open;

end;

procedure TForm_ArchivesGroupInfo.FlatButtoncancel1Click(Sender: TObject);
begin
DBGridCustInfoMember.enabled:=true;
N1.ENABLED:=true;
N2.ENABLED:=true;
N3.ENABLED:=true;
FlatButtonok1.enabled:=false;
FlatButtoncancel1.enabled:=false;
clear_CustInfoMember;
CustInfoMember_color(clmenu);
CustInfoMember_enable(false);
queryCustInfoMember.close;
queryCustInfoMember.open;
end;

procedure TForm_ArchivesGroupInfo.N3Click(Sender: TObject);
begin
N1.ENABLED:=false;
N2.ENABLED:=false;
N3.ENABLED:=false;
DBGridCustInfoMember.enabled:=false;
FlatButtonok1.enabled:=true;
FlatButtoncancel1.enabled:=true;
CustInfoMember_color(clwindow);
CustInfoMember_enable(true);
CustInfoMember_do_number:='update';
end;

procedure TForm_ArchivesGroupInfo.insert_CustInfoMember;

begin 
  with querytemp do
   begin 
          if active then close;
          sql.clear;
          sql.add('insert into t_f_CustInfoMember(INFOCODE,JTYHDM,GH,INFOSID,INFONAME,INFOGENDER,PHONE,EDUCODE,INFOJOB,INFOADDR,INFOPOSTCODE,EMAIL,IDCARD,INFOBIRTH)');
          sql.add(' values(:INFOCODE,:JTYHDM,:GH,:INFOSID,:INFONAME,:INFOGENDER,:PHONE,:EDUCODE,:INFOJOB,:INFOADDR,:INFOPOSTCODE,:EMAIL,:IDCARD,to_date(:INFOBIRTH,''yyyy-mm-dd''))');
          parambyname('INFOCODE').asstring:=FlatEditINFOCODE.text;
          parambyname('JTYHDM').asstring:=FlatEditjtyhdm1.text;
          parambyname('PHONE').asstring:=FlatEditPHONE.text;
          parambyname('INFOSID').asstring:=FlatEditINFOSID.text;
          parambyname('INFONAME').asstring:=FlatEditINFONAME.text;
          parambyname('INFOPOSTCODE').asstring:=FlatEditINFOPOSTCODE.text;
          parambyname('INFOBIRTH').asstring:=FlatEditINFOBIRTH.text;
          parambyname('INFOJOB').asstring:=FlatEditINFOJOB.text;
          parambyname('IDCARD').asstring:=FlatEditIDCARD.text;
          parambyname('EMAIL').asstring:=FlatEditEMAIL.text;
          parambyname('GH').asstring:=FlatEditGH.text;
          parambyname('INFOADDR').asstring:=FlatEditINFOADDR.text;
          parambyname('EDUCODE').asstring:=trim(Fun_GetCodeName(FlatComboBoxEDUCODE));
          parambyname('INFOGENDER').asstring:=trim(Fun_GetCodeName(FlatComboBoxINFOGENDER));
          execsql;
      end;
end;

procedure TForm_ArchivesGroupInfo.update_CustInfoMember;

begin

  with querytemp do
   begin
          if active then close;
          sql.clear;
          sql.add('UPDATE  t_f_CustInfoMember SET GH=:GH,INFOSID=:INFOSID,INFONAME=:INFONAME,INFOGENDER=:INFOGENDER,PHONE=:PHONE,EDUCODE=:EDUCODE,INFOJOB=:INFOJOB,INFOADDR=:INFOADDR,');
          sql.add('INFOPOSTCODE=:INFOPOSTCODE,EMAIL=:EMAIL,IDCARD=:IDCARD,INFOBIRTH=to_date(:INFOBIRTH,''yyyy-mm-dd'') WHERE JTYHDM=:JTYHDM and INFOCODE=:INFOCODE');
          parambyname('JTYHDM').asstring:=FlatEditjtyhdm1.text;
          parambyname('PHONE').asstring:=FlatEditPHONE.text;
          parambyname('INFOSID').asstring:=FlatEditINFOSID.text;
          parambyname('INFONAME').asstring:=FlatEditINFONAME.text;
          parambyname('INFOPOSTCODE').asstring:=FlatEditINFOPOSTCODE.text;
          parambyname('INFOBIRTH').asstring:=FlatEditINFOBIRTH.text;
          parambyname('INFOJOB').asstring:=FlatEditINFOJOB.text;
          parambyname('IDCARD').asstring:=FlatEditIDCARD.text;
          parambyname('EMAIL').asstring:=FlatEditEMAIL.text;
          parambyname('GH').asstring:=FlatEditGH.text;
          parambyname('INFOADDR').asstring:=FlatEditINFOADDR.text;
          parambyname('EDUCODE').asstring:=trim(Fun_GetCodeName(FlatComboBoxEDUCODE));
          parambyname('INFOGENDER').asstring:=trim(Fun_GetCodeName(FlatComboBoxINFOGENDER));
          parambyname('INFOCODE').asstring:=trim(FlatEditINFOCODE.text);
          execsql;
      end;
end;
procedure TForm_ArchivesGroupInfo.N2Click(Sender: TObject);
begin

if (Application.MessageBox('是否要删除该用户？','提示',MB_OKCANCEL)<>id_ok)  then exit;
if not queryCustInfoMember.active then exit;
if not queryCustInfoMember.recordcount>0 then exit;
with querytemp do
begin
   if active then close;
   sql.clear;
   sql.add('delete from  T_F_CustInfoMember where INFOCODE=:INFOCODE AND JTYHDM=:JTYHDM ');
   parambyname('INFOCODE').asinteger:=queryCustInfoMember.fieldbyname('INFOCODE').asinteger;
   parambyname('JTYHDM').asinteger:=queryCustInfoMember.fieldbyname('JTYHDM').asinteger;
   execsql;
end;
clear_CustInfoMember;
queryCustInfoMember.close;
queryCustInfoMember.open;
end;

procedure TForm_ArchivesGroupInfo.MenuItem1Click(Sender: TObject);
begin
FlatButton5.Enabled:=true;
FlatButton4.Enabled:=true;
clear_GroupMemoDay;
enabled_GroupMemoDay(true);
color_GroupMemoDay(clwindow);
DBGridQueryGroupMemoDay.Enabled:=false;
GroupMemoDay_do_number:='insert';
end;


procedure  TForm_ArchivesGroupInfo.color_GroupMemoDay(flag:Tcolor);
begin
    FlatEditGMEMO_NAME.colorflat:=flag;
    FlatEditGMEMO_SDATE.colorflat:=flag;
    FlatEditGMEMO_EDATE.colorflat:=flag;
    FlatMemoGMEMO_MEMO.colorflat:=flag;
end;

procedure  TForm_ArchivesGroupInfo.enabled_GroupMemoDay(flag:boolean);
begin
    FlatEditGMEMO_NAME.enabled:=flag;
    FlatEditGMEMO_SDATE.enabled:=flag;
    FlatEditGMEMO_EDATE.enabled:=flag;
    FlatMemoGMEMO_MEMO.enabled:=flag;
end;
procedure TForm_ArchivesGroupInfo.FlatButton5Click(Sender: TObject);
var
GMEMO_ID:integer;
begin
if trim(FlatEditGMEMO_NAME.text)='' then
begin
    showmessage('请输入标题！');
    exit;
end;
if GroupMemoDay_do_number='insert' then
 begin
        if (Application.MessageBox('是否要增加该记录？','提示',MB_OKCANCEL)=id_ok)  then
            begin
               with querytemp do
               begin
                   if active then close;
                   sql.Clear;
                   sql.Add('select nvl(max(GMEMO_ID),0)+1 GMEMO_ID from  T_F_GroupMemoDay');
                   open;
                   GMEMO_ID:=fieldbyname('GMEMO_ID').asinteger;
                   if active then close;
                   sql.Clear;
                   sql.add('INSERT INTO t_f_GroupMemoDay(GROUP_ID,GMEMO_ID,GMEMO_SDATE,GMEMO_EDATE,GMEMO_MEMO,GMEMO_NAME) VALUES(:GROUP_ID,:GMEMO_ID,to_date(:GMEMO_SDATE,''yyyy-mm-dd''),to_date(:GMEMO_EDATE,''yyyy-mm-dd''),:GMEMO_MEMO,:GMEMO_NAME)');
                   parambyname('GROUP_ID').asstring:=trim(FlatEditjtyhdm2.text);
                   parambyname('GMEMO_ID').asinteger:=GMEMO_ID;
                   if trim(FlatEditGMEMO_SDATE.Text)='' then
                       parambyname('GMEMO_SDATE').asstring:='1901-01-01'
                   else
                       parambyname('GMEMO_SDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text);
                   if trim(FlatEditGMEMO_EDATE.Text)='' then
                       parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text)
                   else
                       parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_EDATE.Text);
                   parambyname('GMEMO_MEMO').asstring:=trim(FlatMemoGMEMO_MEMO.Text);
                   parambyname('GMEMO_NAME').asstring:=trim(FlatEditGMEMO_NAME.Text);
                   execsql;
               end;
            end;
 end;
if  GroupMemoDay_do_number='update' then
 begin
        if (Application.MessageBox('是否要修改该用户资料？','提示',MB_OKCANCEL)=id_ok)  then
            begin
               with querytemp do
               begin
                   if active then close;
                   sql.Clear;
                   sql.add('UPDATE t_f_GroupMemoDay　SET GMEMO_SDATE=to_date(:GMEMO_SDATE,''yyyy-mm-dd''),GMEMO_EDATE=to_date(:GMEMO_EDATE,''yyyy-mm-dd''),GMEMO_MEMO=:GMEMO_MEMO,GMEMO_NAME=:GMEMO_NAME where GROUP_ID=:GROUP_ID and GMEMO_ID=:GMEMO_ID ');
                   parambyname('GROUP_ID').asstring:=trim(FlatEditjtyhdm2.text);
                   parambyname('GMEMO_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GMEMO_ID').asinteger;
                   if trim(FlatEditGMEMO_SDATE.Text)='' then
                       parambyname('GMEMO_SDATE').asstring:='1901-01-01'
                   else
                       parambyname('GMEMO_SDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text);
                   if trim(FlatEditGMEMO_EDATE.Text)='' then
                       parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text)
                   else
                       parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_EDATE.Text);
                   parambyname('GMEMO_MEMO').asstring:=trim(FlatMemoGMEMO_MEMO.Text);
                   parambyname('GMEMO_NAME').asstring:=trim(FlatEditGMEMO_NAME.Text);
                   execsql;
               end;
       end;
end;
clear_GroupMemoDay;
enabled_GroupMemoDay(false);
color_GroupMemoDay(clmenu);
DBGridQueryGroupMemoDay.Enabled:=true;
FlatButton5.Enabled:=false;
FlatButton4.Enabled:=false;
MenuItem1.Enabled:=true;
MenuItem2.Enabled:=true;
MenuItem3.Enabled:=true;
QueryGroupMemoDay.Close;
QueryGroupMemoDay.open;
   QueryGroupMemoDay.close;
  QueryGroupMemoDay.open;
end;

procedure TForm_ArchivesGroupInfo.FlatButton4Click(Sender: TObject);
begin
clear_GroupMemoDay;
enabled_GroupMemoDay(false);
color_GroupMemoDay(clmenu);
DBGridQueryGroupMemoDay.Enabled:=true;
FlatButton5.Enabled:=false;
FlatButton4.Enabled:=false;
MenuItem1.Enabled:=true;
MenuItem2.Enabled:=true;
MenuItem3.Enabled:=true;
QueryGroupMemoDay.Close;
QueryGroupMemoDay.open;
end;

procedure TForm_ArchivesGroupInfo.MenuItem2Click(Sender: TObject);
begin
FlatButton5.Enabled:=true;
FlatButton4.Enabled:=true;
if not QueryGroupMemoDay.Active then exit;
if not QueryGroupMemoDay.recordcount>0 then
begin
   showmessage('当前没有记录可修改');
   exit;
end;
enabled_GroupMemoDay(true);
color_GroupMemoDay(clwindow);
DBGridQueryGroupMemoDay.Enabled:=false;
GroupMemoDay_do_number:='update';
end;

procedure TForm_ArchivesGroupInfo.MenuItem3Click(Sender: TObject);
begin
if not(Application.MessageBox('是否要删除该用户？','提示',MB_OKCANCEL)=id_ok)  then exit;
if not QueryGroupMemoDay.Active then exit;
if not QueryGroupMemoDay.recordcount>0 then
begin
   showmessage('当前没有记录可修改');
   exit;
end;
with querytemp do
begin
  if Active then close;
  sql.clear;
  sql.add('delete from t_f_GroupMemoDay where GMEMO_ID=:GMEMO_ID and GROUP_ID=:GROUP_ID');
  parambyname('GMEMO_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GMEMO_ID').asinteger;
  parambyname('GROUP_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GROUP_ID').asinteger;
  execsql;
  QueryGroupMemoDay.close;
  QueryGroupMemoDay.open;
end;
end;

procedure TForm_ArchivesGroupInfo.DataSourceQueryGroupMemoDayDataChange(Sender: TObject;
  Field: TField);
begin
FlatEditGMEMO_SDATE.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_SDATE').asstring;
FlatEditGMEMO_EDATE.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_EDATE').asstring;
FlatMemoGMEMO_MEMO.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_MEMO').asstring;
FlatEditGMEMO_NAME.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_NAME').asstring;
end;

end.
上一页 1 2 34
💿 文件大小 7903 K
👤 上传用户 pengcong2008_
📂 所属分类其他行业
🏷️ 相关标签

#DELPHI #源程序 #比较 #管理系统
⌨️ 快捷键说明

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