【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了SJGL_KCMXFORM.pas提供大家参考,希望对大家有所帮助!
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+