conbrowse.~pas

书籍类别（种类编号

unit ConBrowse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls, ExtCtrls,
  TabNotBk, ImgList, Grids, DBGrids,DB, Menus, StdCtrls,ComObj,Excel2000,OleServer,
  PasComboxGrid, RzButton, RzTabs;

type
  ENoActiveWorkbook = class(Exception);
  TStyleColumnWidth = (cwDefault, cwOwnerWidth, cwAutoFit, cwFieldDisplayWidth, cwFieldDataSize, cwEnhAutoFit);

  TConForm = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    TabbedNotebook1: TTabbedNotebook;
    ImageList1: TImageList;
    ImageList2: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton10: TToolButton;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Button1: TButton;
    ToolButton8: TToolButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit1: TEdit;
    ComboxGrid2: TComboxGrid;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    YXEdit: TDateTimePicker;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    YXEdit1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Panel3: TPanel;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    Label13: TLabel;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox6: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit12: TEdit;
    Edit13: TEdit;
    DateTimePicker3: TDateTimePicker;
    Edit15: TEdit;
    RzBitBtn1: TRzBitBtn;
    Edit18: TEdit;
    Label14: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    TreeView1: TTreeView;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    GroupBox5: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label24: TLabel;
    DateTimePicker2: TDateTimePicker;
    Edit7: TEdit;
    Button3: TButton;
    Button4: TButton;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    GroupBox7: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit16: TEdit;
    Edit17: TEdit;
    DateTimePicker4: TDateTimePicker;
    Edit19: TEdit;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Edit14: TEdit;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Button5: TButton;
    Edit20: TEdit;
    procedure ToolButton10Click(Sender: TObject);
    procedure GetResSubList(Node:TTreeNode;TableName:string;KeyWord:string);
    procedure GetResMainList(MTableName:string;STableName:string);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure ToolButton2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    function  Convert(intt:integer):string;
    function  ComNum(str:string):integer;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure GetList;
    procedure ComboBox3Change(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton5Click(Sender: TObject);
    procedure RefreshFinance;
    procedure Label9Click(Sender: TObject);//刷新财务记录
  private
    { Private declarations }
    FStyleColumnWidth : TStyleColumnWidth;

  public
    { Public declarations }
     published
    // MOST IMPORTANT PROPERTIES
    //--------------------------
    // Show or hide excel (default True)

    property StyleColumnWidth : TStyleColumnWidth read FStyleColumnWidth write FStyleColumnWidth;

  end;

var
  ConForm: TConForm;
  Arrange      : Boolean=false;
implementation
uses main, DBM,inc, AddConForm, printf, excel;
{$R *.dfm}
var
Qstr1:string;
/////////////////////////////////////////////////////////////////
//刷新财务记录
//2007/06/08
//作者：孙长龙
/////////////////////////////////////////////////////////////////
procedure TConForm.RefreshFinance;//刷新财务记录
var

strYuE       :string;  //余额
strPreYuE    :string;  //上一次的余额
strJieFang   :string;  //借方
strDaiFang   :string;  //贷方
strConNumber :string;  //合同编号
strDateTime  :string;  //日期
strPingZheng :string;  //记帐凭证
strSumDai    :string;  //审批前金额求和

iFielldID    :integer; //字段 ID
iRecNum      :integer; //表格序号
iCount       :integer;
begin
strPreYuE:='0';
iCount   := 0 ;
with DM do begin
if detail.RecordCount<=1 then exit;

while not detail.Eof do
      begin
      iRecNum:= detail.RecNo                    ;     //表格序号
      iFielldID:= detail.FieldValues['ID']        ;     //字段 ID
      strDaiFang:= detail.FieldValues['daifang']   ;     //贷方
      strJieFang:= detail.FieldValues['jiefang']   ;     //借方
      strConNumber:= detail.FieldValues['ConNumber'];     //合同编号
      if detail.FieldValues['marking']= 1 then
         begin 
//         if  iRecNum = 1 then  strYuE: = strDaiFang;
           strYuE:= Format('%8.2f',[strtofloat(strDaiFang)+strtofloat(strPreYuE)]);
         end;//if marking = 1 审计前



      if detail.FieldValues['marking']= 2 then
         begin
           iCount:=iCount+1;
           if iCount = 1 then
            begin
            DM.ADOQuery7.Close;
            DM.ADOQuery7.SQL.Clear;
            DM.ADOQuery7.SQL.Add('select sum(daifang) as dai from detail where conNumber='''+strConNumber+''' and marking=1') ;
            DM.ADOQuery7.Open;
            //把审计前金额求和
            strSumDai:=DM.ADOQuery7.FieldValues['dai'];
            strYuE:=Format('%8.2f',[strtofloat(strDaiFang)+strtofloat(strPreYuE)-strtofloat(strSumDai)]);
            end;
            if iCount > 1 then
            strYuE:= Format('%8.2f',[strtofloat(strDaiFang)+strtofloat(strPreYuE)]);
         end;//if marking = 2 审计后


      if detail.FieldValues['marking']= 0 then
         begin
         strYuE:= Format('%8.2f',[strtofloat(strPreYuE)-strtofloat(strJieFang)]);
         end;//if marking = 0 付款


      detail.Prepared:=true;
      detail.Edit;
      detail.FieldValues['remain']:=strYuE;

      detail.Post;
      strPreYuE:= detail.FieldValues['Remain'];//上一次的余额
      detail.Next;
      end;//while
            end;//DM
end;

procedure TConForm.ToolButton10Click(Sender: TObject);
begin
 Close;
end;

procedure TConForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
 delTabs('合同信息'); 
end;

procedure TConForm.FormShow(Sender: TObject);
begin
 DateTimePicker1.Date:=now;
 DateTimePicker2.Date:=now;
 DateTimePicker3.Date:=now;
 DateTimePicker4.Date:=now;
 GetResMainList('ResourseMaintype','ResourceSubtype');
 //YXEdit.Date:=now;
 GetList;
 //////////////////////////////
 with DM do
  begin
        ADOQuery2.Close;
        ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select * from contract order by ConstructUnit');
        ADOQuery2.Open;
        //str888:=SQLStr;
        DataSource1.DataSet :=ADOQuery2;
        DBGrid1.DataSource :=DataSource1;
        DBGrid1.Columns.Items[0].FieldName :='Connumber';
        DBGrid1.Columns.Items[0].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[1].FieldName :='Connumber_1';
        DBGrid1.Columns.Items[1].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[2].FieldName :='ItemName';
        DBGrid1.Columns.Items[2].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[3].FieldName :='ConstructUnit';
        DBGrid1.Columns.Items[3].Width :=DBGrid1.Width div 11;

        DBGrid1.Columns.Items[4].FieldName :='BeAudit';
        DBGrid1.Columns.Items[4].Width :=100;

        DBGrid1.Columns.Items[5].FieldName :='AfAudit';
        DBGrid1.Columns.Items[5].Width :=100;

        DBGrid1.Columns.Items[6].FieldName :='AfAuditPay';
        DBGrid1.Columns.Items[6].Width :=100;

        DBGrid1.Columns.Items[7].FieldName :='Payed';
        DBGrid1.Columns.Items[7].Width :=DBGrid1.Width div 11;

        DBGrid1.Columns.Items[8].FieldName :='BePayed';
        DBGrid1.Columns.Items[8].Width :=100;

        DBGrid1.Columns.Items[9].FieldName :='ThisYear';
        DBGrid1.Columns.Items[9].Width :=80;

        DBGrid1.Columns.Items[10].FieldName :='Remain';

        DBGrid1.Columns.Items[11].FieldName :='benyue';
        DBGrid1.Columns.Items[11].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[12].FieldName :='BSQK';
        DBGrid1.Columns.Items[12].Width :=DBGrid1.Width div 12;
        
        DBGrid1.Columns.Items[13].FieldName :='SignTime';

        DBGrid1.Columns.Items[14].FieldName :='ConPerson';
        DBGrid1.Columns.Items[14].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[15].FieldName :='locate';
        DBGrid1.Columns.Items[15].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[16].FieldName :='Fulfill';
        DBGrid1.Columns.Items[16].Width :=DBGrid1.Width div 12;

        DBGrid1.Columns.Items[17].FieldName :='acceptance';
        DBGrid1.Columns.Items[17].Width :=100;

        DBGrid1.Columns.Items[18].FieldName :='tel';
        DBGrid1.Columns.Items[18].Width :=DBGrid1.Width div 12;
        str888_1:=800;
        Label25.Caption:= '所有合同';
        end;
 //////////////////////////////
 end;
procedure TConForm.GetResSubList(Node: TTreeNode;TableName:string;KeyWord:string);