sjgl_kcmxform.~pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit SJGL_KCMXFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, Db, ADODB, ExtCtrls, StdCtrls, Buttons,
  QuickRpt, Qrctrls;

type
  TSJGL_KCMX = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRLabel2: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel3: TQRLabel;
    ADOTable1DSDesigner: TDateTimeField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TIntegerField;
    ADOTable1DSDesigner8: TIntegerField;
    ADOTable1DSDesigner9: TBCDField;
    ADOTable1DSDesigner10: TBCDField;
    ADOTable1DSDesigner12: TBCDField;
    ADOTable1DSDesigner13: TIntegerField;
    ADOTable1DSDesigner14: TStringField;
    ADOTable1DSDesigner15: TStringField;
    ADOTable1DSDesigner16: TStringField;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRSysData2: TQRSysData;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SJGL_KCMX: TSJGL_KCMX;

implementation

uses  MRWX_BB, MR_WXFORM;

{$R *.DFM}

procedure TSJGL_KCMX.FormCreate(Sender: TObject);
var metricsy:integer;
begin
metricsy:=getsystemmetrics(sm_cyscreen);
if metricsy>600 then begin
   height:=height+100;
   pagecontrol1.Height:=pagecontrol1.Height+100;
end else begin
   constraints.MaxHeight:=440;
end;

end;

procedure TSJGL_KCMX.FormShow(Sender: TObject);
begin
animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
adoquery1.First;
combobox1.Items.clear;
while not adoquery1.Eof do begin
   combobox1.items.Add(adoquery1.fieldbyname('库房').asstring);
   adoquery1.next;
end;
combobox1.ItemIndex:=0;
adotable1.Filter:=format('部门'+'='+'''%s''',[combobox1.text]);
dbgrid1.Refresh;
bevel1.refresh;
label1.refresh;
label2.refresh;
label3.refresh;
label4.refresh;
label5.refresh;
label6.refresh;
adotable1.IndexFieldNames:='日期';
end;

procedure TSJGL_KCMX.BitBtn6Click(Sender: TObject);
begin
MR_WX.ENABLED:=TRUE;
close;
end;

procedure TSJGL_KCMX.FormPaint(Sender: TObject);
var x,y,z:integer;
begin
//****************************************************************************
  x:=0; y:=0;
  SJGL_KCMX.canvas.pen.width:=1;
  for z:=0 to 2 do begin
    SJGL_KCMX.canvas.pen.color:=$00404040;
    SJGL_KCMX.Canvas.moveto(bitbtn4.left+bitbtn4.width+x,bitbtn4.top+2);
    SJGL_KCMX.canvas.lineto(bitbtn4.left+bitbtn4.width+x,bitbtn4.top+bitbtn4.height+2);
    SJGL_KCMX.canvas.moveto(bitbtn4.left+2,bitbtn4.top+bitbtn4.height+y);
    SJGL_KCMX.canvas.lineto(bitbtn4.left+bitbtn4.width+2,bitbtn4.top+bitbtn4.height+y);
    inc(x); inc(y);
  end;
//****************************************************************************
  x:=0; y:=0;
  SJGL_KCMX.canvas.pen.width:=1;
  for z:=0 to 2 do begin
    SJGL_KCMX.canvas.pen.color:=$00404040;
//    SJGL_KCMX.canvas.lineto(bitbtn5.width+x,bitbtn5.top+bitbtn5.height+2);
//    SJGL_KCMX.canvas.moveto(bitbtn5.left+2,bitbtn5.top+bitbtn5.height+y);
//    SJGL_KCMX.canvas.lineto(bitbtn5.left+bitbtn5.width+2,bitbtn5.top+bitbtn5.height+y);
//    inc(x); inc(y);
  end;
//****************************************************************************
  x:=0; y:=0;
  SJGL_KCMX.canvas.pen.width:=1;
  for z:=0 to 2 do begin
    SJGL_KCMX.canvas.pen.color:=$00404040;
    SJGL_KCMX.Canvas.moveto(bitbtn6.left+bitbtn6.width+x,bitbtn6.top+2);
    SJGL_KCMX.canvas.lineto(bitbtn6.left+bitbtn6.width+x,bitbtn6.top+bitbtn6.height+2);
    SJGL_KCMX.canvas.moveto(bitbtn6.left+2,bitbtn6.top+bitbtn6.height+y);
    SJGL_KCMX.canvas.lineto(bitbtn6.left+bitbtn6.width+2,bitbtn6.top+bitbtn6.height+y);
    inc(x); inc(y);
  end;
//****************************************************************************

end;

procedure TSJGL_KCMX.QuickRep1Preview(Sender: TObject);
begin
//qrlabel3.Caption:=mr_wxform.ADOTable1.fieldbyname('公司名称').asstring;
mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;

end;

procedure TSJGL_KCMX.BitBtn4Click(Sender: TObject);
begin
    if not assigned(mr_wxbb) then begin
       mr_wxbb:=tmr_wxbb.create(self);
    end;
    mr_wxbb.show;
    QuickRep1.Preview;

end;

procedure TSJGL_KCMX.ComboBox1Click(Sender: TObject);
begin
adotable1.Filter:=format('部门'+'='+'''%s''',[combobox1.text]);
end;

end.