📄 unit_systemissueinfo.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
字号:
unit Unit_SystemIssueInfo;

interface

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

type
  TFrm_SystemIssueInfo = class(TForm)
    QueryGG: TQuery;
    Query1: TQuery;
    DataSource_gg: TDataSource;
    QueryGHGG: TQuery;
    DataSourceGHGG: TDataSource;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel3: TPanel;
    TabSheet2: TTabSheet;
    Panel6: TPanel;
    DBGrid2: TDBGrid;
    Panel7: TPanel;
    DBGrid1: TDBGrid;
    Panel12: TPanel;
    FlatPanel1: TFlatPanel;
    CheckBox1: TCheckBox;
    Panel4: TPanel;
    Panel8: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Panel11: TPanel;
    FlatPanel2: TFlatPanel;
    CheckBox2: TCheckBox;
    Fcom_gh: TFlatComboBox;
    Fedit_name: TFlatEdit;
    Fcom_gglx: TFlatComboBox;
    Memo_ggnr: TMemo;
    Panel2: TPanel;
    Panel10: TPanel;
    Panel9: TPanel;
    Memo_xxnr: TMemo;
    Label9: TLabel;
    FCom_city: TFlatComboBox;
    Label10: TLabel;
    Fcom_jx: TFlatComboBox;
    Label11: TLabel;
    Fcom_jb: TFlatComboBox;
    Label2: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    Label5: TLabel;
    Label6: TLabel;
    FlatEdit1: TFlatEdit;
    Label7: TLabel;
    FlatComboBox3: TFlatComboBox;
    Label8: TLabel;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    Label12: TLabel;
    QueryCity: TQuery;
    QueryCounty: TQuery;
    QueryJB: TQuery;
    Panel5: TPanel;
    BitBtn1: TFlatButton;
    Panel13: TPanel;
    BitBtn_gb: TFlatButton;
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn_gbClick(Sender: TObject);
    procedure QueryGGAfterScroll(DataSet: TDataSet);
    procedure QueryGHGGAfterScroll(DataSet: TDataSet);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid2TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_SystemIssueInfo: TFrm_SystemIssueInfo;
  GGID:String;

implementation
uses main,login,Unit_Public;
{$R *.DFM}

procedure TFrm_SystemIssueInfo.FormShow(Sender: TObject);
begin
   QueryCity.Open;
   QueryCounty.Open;
   QueryJB.Open;

   PageControl1Change(Nil);
end;

procedure TFrm_SystemIssueInfo.CheckBox1Click(Sender: TObject);
begin
//转为历史纪录-----在表GH_GG里插入一条纪录
   If CheckBox1.Checked Then
      Begin
         Query1.Close;
         Query1.Sql.Clear;
         Query1.Sql.Add('update t_f_affiche set AFF_FLAG=0 where id='+QueryGG.FieldByName('ID').AsString);
         Query1.ExecSql;
         QueryGG.Close;
         QueryGG.Open;
         CheckBox1.Checked :=False;
      End;
end;

procedure TFrm_SystemIssueInfo.BitBtn_gbClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_SystemIssueInfo.QueryGGAfterScroll(DataSet: TDataSet);
begin
   If QueryGG.IsEmpty Then
      Begin
         Fcom_City.ItemIndex:=-1;
         Fcom_JX.ItemIndex:=-1;
         Fcom_JB.ItemIndex:=-1;
         Fcom_GH.Text:='';
         FEdit_Name.Text:='';
         Fcom_gglx.ItemIndex:=-1;
      End;

   If QueryCity.Locate('CityNo',QueryGG.FieldByName('CityNo').AsString,[])=True Then
      Fcom_City.Text:=QueryCity.FieldByName('CityName').AsString
   Else
      Fcom_City.Text:='所有';

   If QueryCounty.Locate('CityNo;Off_No_Home',VarArrayOf([QueryGG.FieldByName('CityNo').AsString,QueryGG.FieldByName('Off_No_Home').AsString]),[])=True Then
      Fcom_JX.Text:=QueryCounty.FieldByName('Home_Name').AsString
   Else
      Fcom_JX.Text:='所有';

   If QueryJB.Locate('JBDM',QueryGG.FieldByName('JBDM').AsString,[])=True Then
      Fcom_JB.Text:=QueryJB.FieldByName('JBMC').AsString
   Else
      Fcom_JB.Text:='所有';

   Fcom_GH.Text:=QueryGG.FieldByName('WK_NO').AsString;
   Fcom_gglx.ItemIndex:=QueryGG.FieldByName('IMPORT').AsInteger;
   Fedit_name.Text :=QueryGG.FieldByName('name').AsString;
   Memo_ggnr.Text:=QueryGG.FieldByName('AFFICHE').AsString;
end;

procedure TFrm_SystemIssueInfo.QueryGHGGAfterScroll(DataSet: TDataSet);
begin
//显示各条历史公告信息
   If QueryGHGG.IsEmpty Then
      Begin
         FlatComboBox1.ItemIndex:=-1;
         FlatComboBox3.ItemIndex:=-1;
         FlatComboBox4.ItemIndex:=-1;
         FlatComboBox2.Text:='';
         FlatEdit1.Text:='';
         FlatComboBox5.ItemIndex:=-1;
      End;

   If QueryCity.Locate('CityNo',QueryGHGG.FieldByName('CityNo').AsString,[])=True Then
      FlatComboBox1.Text:=QueryCity.FieldByName('CityName').AsString
   Else
      FlatComboBox1.Text:='所有';

   If QueryCounty.Locate('CityNo;Off_No_Home',VarArrayOf([QueryGHGG.FieldByName('CityNo').AsString,QueryGHGG.FieldByName('Off_No_Home').AsString]),[])=True Then
      FlatComboBox3.Text:=QueryCounty.FieldByName('Home_Name').AsString
   Else
      FlatComboBox3.Text:='所有';

   If QueryJB.Locate('JBDM',QueryGHGG.FieldByName('JBDM').AsString,[])=True Then
      FlatComboBox4.Text:=QueryJB.FieldByName('JBMC').AsString
   Else
      FlatComboBox4.Text:='所有';

   FlatComboBox2.Text:=QueryGHGG.FieldByName('WK_NO').AsString;
   FlatComboBox5.ItemIndex:=QueryGHGG.FieldByName('IMPORT').AsInteger;
   FlatEdit1.Text :=QueryGHGG.FieldByName('name').AsString;
   Memo_xxnr.Text:=QueryGHGG.FieldByName('AFFICHE').AsString;
end;

procedure TFrm_SystemIssueInfo.CheckBox2Click(Sender: TObject);
begin
//转为最新公告信息------从表GH_GG里删除一条纪录
   If Not CheckBox2.Checked Then
      Begin
         Query1.Close;
         Query1.Sql.Clear;
         Query1.Sql.Add('update t_f_affiche set AFF_FLAG=1 where id='+queryGHGG.FieldByName('ID').AsString);
         Query1.ExecSql;
         QueryGHGG.Close;
         QueryGHGG.Open;
         CheckBox2.Checked :=True;
      End;
end;

procedure TFrm_SystemIssueInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;

end;

procedure TFrm_SystemIssueInfo.PageControl1Change(Sender: TObject);
begin
   Case PageControl1.ActivePageIndex Of
      0:   //查询最新公告信息
         Begin
            QueryGG.Close;
            QueryGG.SQL.Clear;
            QueryGG.SQL.Add('Select b.*,C.name From t_f_affiche b,t_f_manager C WHERE b.AFF_FLAG=1 and b.cityno='+PS_CityNo);
            QueryGG.SQL.Add('and B.wk_no=C.wk_no ');
            If (JBDM<>0) And (JBDM<>1) THEN //JBDM不为0、1的则只能看到属于自己的公告纪录
              Begin
                  QueryGG.SQL.Add(' And (b.OFF_NO_HOME=0 OR b.OFF_NO_HOME='+IntToStr(JX)+')');
                  QueryGG.SQL.Add(' And (b.JBDM=9 Or b.JBDM='+IntToStr(JBDM)+')');
              End
            Else
              QueryGG.SQL.Add('AND b.WK_NO='+''''+GH+'''');

            QueryGG.SQL.Add(' Order By b.PUBTIME DESC');
            QueryGG.Open;

            IF QueryGG.IsEmpty Then
               Begin
                  checkbox1.checked :=False;
                  checkbox1.Enabled :=False;
                  Memo_GGNR.Text:='';
                  Memo_GGNR.ReadOnly :=True;
                  Fcom_gglx.ItemIndex :=-1;
               End
            Else
               Begin
                  CheckBox1.Checked :=False;
                  CheckBox1.Enabled :=True;
               End;
         End;
      1:    //查询公告历史纪录
         Begin

            QueryGHGG.Close;
            QueryGHGG.SQL.Clear;
            QueryGHGG.SQL.Add('Select B.*,C.wk_no,C.name From t_f_affiche B,t_f_manager C WHERE b.AFF_FLAG=0 And B.wk_no=C.wk_no Order BY B.PUBTIME DESC');
            QueryGHGG.Open;
            IF QueryGHGG.IsEmpty Then
               Begin
                  CheckBox2.Checked := True;
                  checkbox2.Enabled :=False;
                  Memo_xxnr.text:='';
                  Memo_xxnr.ReadOnly :=True;
                  Fcom_gglx.ItemIndex :=-1;
               End
            Else
               Begin
                  CheckBox2.Checked := True;
                  checkbox2.Enabled :=True;
               End;
         End;
   End;
end;

procedure TFrm_SystemIssueInfo.BitBtn1Click(Sender: TObject);
begin
   Close;
end;

procedure TFrm_SystemIssueInfo.DBGrid1TitleClick(Column: TColumn);
begin
  Gp_SortDbgrid(column,Column.Grid as TDBGrid);
end;

procedure TFrm_SystemIssueInfo.DBGrid2TitleClick(Column: TColumn);
begin
  Gp_SortDbgrid(column,Column.Grid as TDBGrid);
end;

end.
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

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

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