mrwx_bjxxllkd.~pas

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

unit MRWX_BJXXLLKD;

interface

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

type
  TMR_WXBJXX_LLKD = class(TForm)
    PageControl1: TPageControl;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn11: TBitBtn;
    Bevel2: TBevel;
    Edit4: TEdit;
    Label10: TLabel;
    ComboBox1: TComboBox;
    Label11: TLabel;
    ADOTable1DSDesigner: TDateTimeField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1ru: TBooleanField;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TStringField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TStringField;
    ADOTable2DSDesigner6: TIntegerField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TStringField;
    ADOTable2DSDesigner9: TStringField;
    ADOTable4: TADOTable;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    ADOTable4DSDesigner: TStringField;
    ADOTable4DSDesigner2: TStringField;
    ADOTable4DSDesigner3: TStringField;
    ADOTable4DSDesigner4: TStringField;
    ADOTable4DSDesigner5: TStringField;
    ADOTable4DSDesigner6: TStringField;
    ADOTable4DSDesigner7: TStringField;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRShape1: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    DetailBand1: TQRBand;
    QRShape20: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel9: TQRLabel;
    QRShape21: TQRShape;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel13: TQRLabel;
    Label12: TLabel;
    ComboBox2: TComboBox;
    ADOTable1DSDesigner5: TStringField;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRSysData2: TQRSysData;
    ADOTable5: TADOTable;
    ADOTable5DSDesigner: TStringField;
    ADOTable5DSDesigner2: TStringField;
    ADOTable5DSDesigner3: TStringField;
    ADOTable5DSDesigner4: TStringField;
    ADOTable5DSDesigner5: TDateTimeField;
    ADOTable5DSDesigner6: TStringField;
    ADOTable5DSDesigner7: TStringField;
    ADOTable5DSDesigner8: TStringField;
    ADOTable5DSDesigner9: TStringField;
    ADOTable5DSDesigner10: TStringField;
    DataSource4: TDataSource;
    ADOTable3: TADOTable;
    ADOTable3DSDesigner: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure StringGrid1DblClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
      var Value: String);
    procedure DBGrid3KeyPress(Sender: TObject; var Key: Char);
    procedure DataSource3DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MR_WXBJXX_LLKD: TMR_WXBJXX_LLKD;
  danhao:string;
  strx,stry:integer;
implementation

uses  MRWX_BB;

{$R *.DFM}

procedure TMR_WXBJXX_LLKD.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 TMR_WXBJXX_LLKD.FormShow(Sender: TObject);
var si:integer;
begin
animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
dbgrid1.columns[0].Width:=dbgrid1.columns[0].Width+1;
bevel1.Left:=bevel1.Left+1;
label1.Left:=label1.Left+1;
label6.left:=label6.left+1;
label7.left:=label7.left+1;
label8.Left:=label8.Left+1;
label9.left:=label9.left+1;
label11.left:=label11.left+1;
label12.left:=label12.left+1;
stringgrid1.cells[1,0]:='名称';
stringgrid1.cells[2,0]:='数量';
stringgrid1.cells[3,0]:='物料编码';
stringgrid1.cells[4,0]:='规格型号';
stringgrid1.cells[5,0]:='单位';
stringgrid1.cells[6,0]:='机型';
stringgrid1.cells[7,0]:='位号';
stringgrid1.cells[8,0]:='备注';
for si:=1 to 50 do begin
      stringgrid1.cells[0,si]:=inttostr(si);
end;
tabsheet1.show;
combobox1.items.Clear;
adotable3.First;
while not adotable3.Eof do begin
    combobox1.Items.add(adotable3.fieldbyname('商家名称').asstring);
    adotable3.next;
end;
adotable5.First;
combobox2.items.Clear;
while not adotable5.Eof do begin
    combobox2.Items.Add(adotable5.fieldbyname('职员名称').asstring);
    adotable5.Next;
end;
  adotable4.indexfieldnames:='备件名称';

end;

procedure TMR_WXBJXX_LLKD.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_HOR_POSITIVE+AW_HIDE);
mr_wxbjxx_llkd.release;
MRWX_BJXXLLD.Release;
MRWX_BJXXLLD:=nil;
mr_wxbjxx_llkd:=nil;

end;

procedure TMR_WXBJXX_LLKD.BitBtn1Click(Sender: TObject);
var x,y:integer;
begin
  for y:=1 to 50 do begin
      for x:=1 to 8 do begin
         stringgrid1.Cells[x,y]:='';
      end;
  end;
  stringgrid1.Col:=1;
  stringgrid1.Row:=1;
end;

procedure TMR_WXBJXX_LLKD.SpeedButton1Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet1;
end;

procedure TMR_WXBJXX_LLKD.SpeedButton2Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
end;

procedure TMR_WXBJXX_LLKD.SpeedButton3Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet3;
end;

procedure TMR_WXBJXX_LLKD.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure TMR_WXBJXX_LLKD.Timer1Timer(Sender: TObject);
begin
label8.caption:=formatdatetime('yyyy"年"mm"月"dd"日"',now);
label9.caption:=formatdatetime('hh:nn:ss  am/pm',now);
end;

procedure TMR_WXBJXX_LLKD.BitBtn2Click(Sender: TObject);
begin
if (combobox1.text<>'') and (combobox2.text<>'') then begin
   adotable1.Last;
   danhao:=adotable1.fieldbyname('单号').asstring;
   if danhao='' then begin
       danhao:='00001';
   end else begin
       danhao:=inttostr(strtoint(danhao)+1);
       while length(danhao)<5 do begin
             danhao:='0'+danhao;
       end;
   end;
   edit4.text:=danhao;
   tabsheet3.Show;
end else begin
   showmessage('请先选择或填写发料单位名称和申请人名称。');
   combobox1.setfocus;
end;