📄 wj_taiz.pas

📁 完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit WJ_TaiZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, ExtCtrls, DB, ADODB, Buttons, ToolWin,
  Menus, ImgList, StdCtrls, Tabs, ValEdit;

type

  TfrmWJ_TaiZ = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    ADOQuery1ID: TWideStringField;
    ADOQuery1SORT: TWideStringField;
    ADOQuery1NAME: TWideStringField;
    ADOQuery1WTF: TWideStringField;
    ADOQuery1FWF: TWideStringField;
    ADOQuery1QDS: TWideStringField;
    ADOQuery1QDSQ: TWideStringField;
    ADOQuery1QDNF: TWideStringField;
    ADOQuery1QDYF: TWideStringField;
    ADOQuery1QDRQ: TDateTimeField;
    ADOQuery1FWNR: TBlobField;
    ADOQuery1TJXZ: TMemoField;
    ADOQuery1LXQX: TWideStringField;
    ADOQuery1LXDD: TWideStringField;
    ADOQuery1LXFS: TWideStringField;
    ADOQuery1YSBZ: TWideStringField;
    ADOQuery1YSFS: TWideStringField;
    ADOQuery1YSZMF: TWideStringField;
    ADOQuery1HTJE: TIntegerField;
    ADOQuery1JFFD: TWideStringField;
    ADOQuery1FKFS: TMemoField;
    ADOQuery1WYJS: TMemoField;
    ADOQuery1ZYJJ: TMemoField;
    ADOQuery1SFWG: TWideStringField;
    ADOQuery1SFYS: TWideStringField;
    ADOQuery1SFJS: TWideStringField;
    ADOQuery1YSSJ: TDateTimeField;
    ADOQuery1WGSJ: TDateTimeField;
    ADOQuery1JSSJ: TDateTimeField;
    ADOQuery1JSJE: TIntegerField;
    ADOQuery1No: TIntegerField;
    ADOQuery2: TADOQuery;
    TabSet1: TTabSet;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    Bevel2: TBevel;
    ComboBox1: TComboBox;
    ToolBar3: TToolBar;
    SpeedButton3: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ToolBar4: TToolBar;
    SpeedButton14: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ToolBar5: TToolBar;
    SpeedButton4: TSpeedButton;
    Bevel1: TBevel;
    SpeedButton5: TSpeedButton;
    ToolBar6: TToolBar;
    SpeedButton7: TSpeedButton;
    ToolBar7: TToolBar;
    SpeedButton9: TSpeedButton;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    SpeedButton10: TSpeedButton;
    Panel2: TPanel;
    Label3: TLabel;
    Panel1: TPanel;
    Shape2: TShape;
    Shape1: TShape;
    Image2: TImage;
    Shape3: TShape;
    Label2: TLabel;
    Shape5: TShape;
    Label4: TLabel;
    Shape4: TShape;
    Image4: TImage;
    Shape6: TShape;
    Label5: TLabel;
    ValueListEditor1: TValueListEditor;
    StringGrid1: TStringGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure TabSet1Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
  private
    { Private declarations }
    procedure ShowTabSheet1;
    procedure ShowTabSheet2;
    procedure ADOQueryRefresh;
    procedure HtTongJi(const Title,SqlText : string);
    procedure HtFuKuanTongJi;
    procedure WriteData(const tName,tData : string);
    procedure WriteStringGrid(const Row : integer;const HtName,HtJinE,YFJinE : string);
  public
    { Public declarations }
  end;

var
  frmWJ_TaiZ: TfrmWJ_TaiZ;

implementation
  uses pdm,pub,WJ_LuRu,WJ_FuJian,WJ_TaiZ_XSXX,WJ_HTDelete_QR,WJ_HTDelete,
  WJ_CaoZuo,FuKanMX,WJ_HTTJ_TJ;
{$R *.dfm}

procedure TfrmWJ_TaiZ.SpeedButton1Click(Sender: TObject);
begin
   ShowWBBJForm ('') ;
end;

procedure TfrmWJ_TaiZ.DBGrid1DblClick(Sender: TObject);
begin
   SpeedButton4.Click;
end;

procedure TfrmWJ_TaiZ.SpeedButton6Click(Sender: TObject);
begin
  if (ADOQuery1.Active) and (ADOQuery1.RecordCount>0) then
  GetHtFuJian(ADOQuery1.FieldByName('ID').AsString,ADOQuery1.FieldByName('Name').AsString);
end;

procedure TfrmWJ_TaiZ.SpeedButton4Click(Sender: TObject);
begin
  if (ADOQuery1.Active) and (ADOQuery1.RecordCount>0) then
      ShowWBBJForm (ADOQuery1.FieldByName('ID').AsString) ;

end;

procedure TfrmWJ_TaiZ.N1Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.SpeedButton5Click(Sender: TObject);
   procedure GetStrL(var StrL : TStringList);
     var i : integer;
     begin
       for i:=2 to DBGrid1.Columns.Count-1 do begin
           if DbGrid1.Columns.Items[i].Visible then begin
              Strl.Add(DBGrid1.Columns.Items[i].Title.Caption+'='+'On');
           end else
              Strl.Add(DBGrid1.Columns.Items[i].Title.Caption+'='+'Off');
       end;
     end;

  procedure ShowFieldList(const StrL : TStringList);
     var i,j : integer;
     begin
       StrL.Sort;
       for i:=2 to DBGrid1.Columns.Count-1 do
           DbGrid1.Columns.Items[i].Visible := StrL.Find(DbGrid1.Columns.Items[i].Title.Caption,j) ;

     end;
var StrL : TStringList;
begin
    StrL := TStringList.Create;
    strL.Clear;
    GetStrL(StrL);
    if Get_TaiZCanS(StrL) then
       ShowFieldList(StrL);
end;

procedure TfrmWJ_TaiZ.N3Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFWG='+#39+'是'+#39+' order by SORT,QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N7Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFWG='+#39+'否'+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);

end;

procedure TfrmWJ_TaiZ.N4Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFYS='+#39+'是'+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N8Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFYS='+#39+'否'+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N5Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFJS='+#39+'是'+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N9Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where SFJS='+#39+'否'+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N11Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where QDYF='+#39+ForMatDateTime('mm',date)+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.N12Click(Sender: TObject);
var Text : string ;
begin
   case MonthToJidu(StrToInt(ForMatDateTime('mm',date))) of
        1: text := 'select * from Taiz where QDYF='+#39+'01'+#39+' or QDYF='+#39+'02'+#39+' or QDYF='+#39+'03'+#39+' order by QDRQ ';
        2: text := 'select * from Taiz where QDYF='+#39+'04'+#39+' or QDYF='+#39+'05'+#39+' or QDYF='+#39+'06'+#39+' order by QDRQ ';
        3: text := 'select * from Taiz where QDYF='+#39+'07'+#39+' or QDYF='+#39+'08'+#39+' or QDYF='+#39+'09'+#39+' order by QDRQ ';
        4: text := 'select * from Taiz where QDYF='+#39+'10'+#39+' or QDYF='+#39+'11'+#39+' or QDYF='+#39+'12'+#39+' order by QDRQ ';
   end;
   HeTong_GetQueryData(text,ADOQuery1);

end;

procedure TfrmWJ_TaiZ.N13Click(Sender: TObject);
var Text : string ;
begin
   text := 'select * from Taiz where QDNF='+#39+ForMatDateTime('yyyy',date)+#39+' order by QDRQ ';
   HeTong_GetQueryData(text,ADOQuery1);
end;

procedure TfrmWJ_TaiZ.SpeedButton2Click(Sender: TObject);
begin
   if (ADOQuery1.Active) and (ADOQuery1.RecordCount>0) then
       if HTDeleteQR(ADOQuery1.FieldByName('Name').AsString) then
          if HtDelete(ADOQuery1.FieldByName('ID').AsString) then
             ADOQueryRefresh;
end;

procedure TfrmWJ_TaiZ.SpeedButton14Click(Sender: TObject);
begin
  SpeedButton4.Click;
12 下一页
⌨️ 快捷键说明

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