printnamebook.~pas

公交行业的管理系统

unit PrintNameBook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons;

type
  TPrintName = class(TForm)
    Panel1: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label24: TLabel;
    Shape3: TShape;
    Label4: TLabel;
    Label3: TLabel;
    Shape4: TShape;
    Label5: TLabel;
    Label6: TLabel;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Label7: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label20: TLabel;
    Label19: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    Label14: TLabel;
    Label12: TLabel;
    Shape14: TShape;
    Shape15: TShape;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit22: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBEdit19: TDBEdit;
    DBComboBox7: TDBComboBox;
    DBEdit6: TDBEdit;
    DBComboBox9: TDBComboBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBEdit9: TDBEdit;
    Button1: TBitBtn;
    Button21: TBitBtn;
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     WhiteBlank : integer;
     cocode : string;
     coname : string;
     coyear : integer;
  end;

var
  PrintName: TPrintName;

implementation

uses BusTradeDataModuleUnit, PrintProc;

{$R *.dfm}

procedure TPrintName.Button3Click(Sender: TObject);
begin
        Close;
end;

procedure TPrintName.FormShow(Sender: TObject);
var
        sqlstr : string;
begin
        if (WhiteBlank = 1)
        then
        begin
                AdoQuery1.Close;
                {DbEdit1.Text := ''; DbEdit2.Text := ''; DbEdit3.Text := '';
                DbEdit4.Text := ''; DbEdit5.Text := ''; DbEdit6.Text := '';}
        end;
        if (WhiteBlank = 0)
        then
        begin
                AdoQuery1.Close;
                AdoQuery1.SQL.Clear;
                sqlstr := 'select * from 公用事业单位基本情况表 where 单位代码='+''''+cocode+''''+' and 统计年份='+inttostr(coyear);
                AdoQuery1.SQL.Add(sqlstr);
                AdoQuery1.Open;
                
        end
end;

procedure TPrintName.Button5Click(Sender: TObject);
begin
        {if (DeviceDetect=0) then
        begin
                exit;
        end; }

        PrintInit(ExtractFilePath(Application.ExeName),'NameBookTab');
        WriteCell(4,2,DBEdit1.Text);
        WriteCell(4,4,DBEdit2.Text);
        WriteCell(5,2,DBEdit3.Text);
        WriteCell(5,4,DBEdit4.Text);
        WriteCell(6,2,DBEdit5.Text);
        WriteCell(6,4,DBComboBox1.Text);
        WriteCell(7,2,DBEdit7.Text);
        WriteCell(7,4,DBEdit8.Text);
        WriteCell(8,2,DBComboBox9.Text);
        WriteCell(8,4,DBComboBox2.Text);
        WriteCell(9,2,DBEdit9.Text);
        WriteCell(10,2,DBComboBox3.Text);
        WriteCell(10,4,DBEdit12.Text);
        WriteCell(11,2,DBEdit13.Text);
        WriteCell(11,4,DBComboBox4.Text);
        WriteCell(12,2,DBEdit16.Text);
        WriteCell(12,4,DBComboBox5.Text);
        WriteCell(13,2,DBComboBox6.Text);
        WriteCell(13,4,DBEdit20.Text);
        WriteCell(14,2,DBComboBox7.Text);
        WriteCell(15,2,DBEdit19.Text);
        WriteCell(16,2,'单位负责人:' + DBEdit2.Text);
        WriteCell(16,3,'填表人:' + DbEdit21.Text);
        WriteCell(16,4,'填表日期:' + DBEdit6.Text);

        PrintExcelShow;
        PrintPreview;
        CloseActiveBook;
end;

procedure TPrintName.Button1Click(Sender: TObject);
begin
       { if (DeviceDetect=0) then
        begin
                exit;
        end;}

        PrintInit(ExtractFilePath(Application.ExeName),'NameBookTab');
        WriteCell(4,2,DBEdit1.Text);
        WriteCell(4,4,DBEdit2.Text);
        WriteCell(5,2,DBEdit3.Text);
        WriteCell(5,4,DBEdit4.Text);
        WriteCell(6,2,DBEdit5.Text);
        WriteCell(6,4,DBComboBox1.Text);
        WriteCell(7,2,DBEdit7.Text);
        WriteCell(7,4,DBEdit8.Text);
        WriteCell(8,2,DBComboBox9.Text);
        WriteCell(8,4,DBComboBox2.Text);
        WriteCell(9,2,DBEdit9.Text);
        WriteCell(10,2,DBComboBox3.Text);
        WriteCell(10,4,DBEdit12.Text);
        WriteCell(11,2,DBEdit13.Text);
        WriteCell(11,4,DBComboBox4.Text);
        WriteCell(12,2,DBEdit16.Text);
        WriteCell(12,4,DBComboBox5.Text);
        WriteCell(13,2,DBComboBox6.Text);
        WriteCell(13,4,DBEdit20.Text);
        WriteCell(14,2,DBComboBox7.Text);
        WriteCell(15,2,DBEdit19.Text);
        WriteCell(16,2,'单位负责人:' + DBEdit2.Text);
        WriteCell(16,3,'填表人:' + DbEdit21.Text);
        WriteCell(16,4,'填表日期:' + DBEdit6.Text);

        PrintExcelShow;
        PrintPreview;
        CloseActiveBook;
end;

procedure TPrintName.Button21Click(Sender: TObject);
begin
        Close;
end;

end.