⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ywgl_dxgl_djform.pas

📁 明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考
💻 PAS
字号:
🔍 
unit YWGL_DXGL_DJFORM;

interface

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

type
  TYWGL_DXGL_DJ = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Bevel1: TBevel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label13: TLabel;
    Label14: TLabel;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRLabel10: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    Label15: TLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel21: TQRLabel;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Date1: TDateTimePicker;
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Date1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    myCn : Variant;
    myRs : Variant;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  YWGL_DXGL_DJ: TYWGL_DXGL_DJ;
   myconnstr:String;
implementation

uses YWGL_DXGLFORM, JBXX_SBXX_TJFORM, MRWX_BB;

{$R *.DFM}

procedure TYWGL_DXGL_DJ.FormCreate(Sender: TObject);
begin
myCn:=CreateOleObject('ADODB.Connection');
 myRs:=CreateOleObject('ADODB.RecordSet');
 myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
 myCn.Open(myconnstr);
 myRs.open('select * from 产品基本信息',myCn);
 If myrs.RecordCount > 0 Then
 myRs.Movelast;
 begin
  myRs.MoveFirst;
  While not myRs.EOF Do
  begin
   combobox1.Items.Add(myRs.Fields['产品名称'].value);
   myRs.MoveNext;
  End;
 end;
 myrs.close;
 mycn.close;
 myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
 myCn.Open(myconnstr);
 myRs.open('select * from 客户基本信息',myCn);
 If myrs.RecordCount > 0 Then
 myRs.Movelast;
 begin
 myRs.MoveFirst;
 While not myRs.EOF Do
  begin
   combobox2.Items.Add(myRs.Fields['客户名称'].value);
   myRs.MoveNext;
  End;
 end;
 myrs.close;
 mycn.close;
end;
procedure TYWGL_DXGL_DJ.FormShow(Sender: TObject);
begin
 Edit2.SetFocus;
 date1.DateTime:=now;
end;
procedure TYWGL_DXGL_DJ.ComboBox1Change(Sender: TObject);  // 选择设备名称
begin
 myCn:=CreateOleObject('ADODB.Connection');
 myRs:=CreateOleObject('ADODB.RecordSet');
 myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
 myCn.Open(myconnstr);
 myRs.open('select * from 产品基本信息 where 产品名称='''+combobox1.Items[combobox1.itemindex]+'''',myCn);
 combobox3.Items.Clear ;
 myRs.MoveFirst;
 While not myRs.EOF Do
 begin
  if myRs.Fields['产品品牌'].value<>'' then combobox3.Items.Add(myRs.Fields['产品品牌'].value);
  myRs.MoveNext;
 End;
 myrs.close;
 mycn.close;
end;
procedure TYWGL_DXGL_DJ.ComboBox3Change(Sender: TObject); //选择品牌机型
begin
 myCn:=CreateOleObject('ADODB.Connection');
 myRs:=CreateOleObject('ADODB.RecordSet');
 myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
 myCn.Open(myconnstr);
 myRs.open('select * from 产品基本信息 where 产品名称='''+combobox1.Items[combobox1.itemindex]+'''and 产品品牌='''+combobox3.Items[combobox3.itemindex]+'''',myCn);
 combobox4.Items.Clear ;
 if  myrs.fields['产品名称'].value <>'' then
 begin
 myRs.MoveFirst;
 While not myRs.EOF Do
 begin
  if myRs.Fields['整机机号'].value<>'' then combobox4.Items.Add(myRs.Fields['整机机号'].value);
  myRs.MoveNext;
 End;
 end;
 myrs.close;
 mycn.close;
end;
procedure TYWGL_DXGL_DJ.ComboBox2Change(Sender: TObject); //选择客户
begin
 myCn:=CreateOleObject('ADODB.Connection');
 myRs:=CreateOleObject('ADODB.RecordSet');
 myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
 myCn.Open(myconnstr);
 myRs.open('select * from 客户基本信息 where 客户名称='''+combobox2.Items[combobox2.itemindex]+'''',myCn);
 edit5.text:='';
 edit6.text:='';
 If myrs.RecordCount > 0 Then
 myRs.Movelast;
 begin
  myRs.MoveFirst;
  if myRs.Fields['联系电话'].value<>'' then edit5.text:=myRs.Fields['联系电话'].value;
  if myRs.Fields['联系人'].value<>'' then edit6.text:=myRs.Fields['联系人'].value;
 End;
 myrs.close;
 mycn.close;
end;
procedure TYWGL_DXGL_DJ.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 date1.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 edit4.SetFocus ;
 end;
 If Key = 38 Then begin
 edit2.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Date1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 edit4.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT2.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 COMBOBOX1.SetFocus ;
 end;
 If Key = 38 Then begin
 date1.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 COMBOBOX2.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT4.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.ComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
  myCn:=CreateOleObject('ADODB.Connection');
  myRs:=CreateOleObject('ADODB.RecordSet');
  myconnstr:='Provider=MSDASQL.1;;;Data Source=mr_wx';
  myCn.Open(myconnstr);
  myRs.open('select * from 客户基本信息 where 客户名称='''+combobox2.Items[combobox2.itemindex]+'''',myCn);
  edit5.text:='';
  edit6.text:='';
  myRs.MoveFirst;
  if myRs.Fields['联系电话'].value<>'' then edit5.text:=myRs.Fields['联系电话'].value;
  if myRs.Fields['联系人'].value<>'' then edit6.text:=myRs.Fields['联系人'].value;
  myrs.close;
  mycn.close;
  COMBOBOX3.SetFocus ;
 end;
 If Key = 38 Then begin
  COMBOBOX1.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.ComboBox3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 COMBOBOX4.SetFocus ;
 end;
 If Key = 38 Then begin
 COMBOBOX2.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 COMBOBOX4.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT6.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.ComboBox4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT7.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT5.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT7.SetFocus ;
 end;
 If Key = 38 Then begin
 COMBOBOX4.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT8.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT6.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT9.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT7.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit9KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT10.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT8.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit10KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 EDIT11.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT9.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.Edit11KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 If Key = 13 Then begin
 BitBtn2.SetFocus ;
 end;
 If Key = 38 Then begin
 EDIT10.SetFocus ;
 end;
end;
procedure TYWGL_DXGL_DJ.BitBtn2Click(Sender: TObject);
begin
 if COMBOBOX1.text='' then begin
   messagedlg('名称不能为空,请添加',mterror,[mbok],0);
   COMBOBOX1.setfocus;
   exit;
 end;
 if COMBOBOX2.text='' then begin
   messagedlg('客户不能为空,请添加',mterror,[mbok],0);
   COMBOBOX2.setfocus;
   exit;
 end;
 if COMBOBOX3.text='' then begin
   messagedlg('备件规格不能为空,请添加',mterror,[mbok],0);
   COMBOBOX3.setfocus;
 end;
 YWGL_DXGL.ADOQuery1.insert;
 if edit1.text<>'' then YWGL_DXGL.ADOQUERY1['单号']:=edit1.text;
 if edit2.text<>'' then YWGL_DXGL.ADOQUERY1['序号']:=edit2.text;
 YWGL_DXGL.ADOQUERY1['日期']:=date1.date;
 if edit4.text<>'' then YWGL_DXGL.ADOQUERY1['费用']:=strtofloat(edit4.text);
 if combobox1.text<>'' then YWGL_DXGL.ADOQUERY1['设备名称']:=combobox1.text;
 if combobox3.text<>'' then YWGL_DXGL.ADOQUERY1['品牌、机型']:=combobox3.text;
 if combobox4.text<>'' then YWGL_DXGL.ADOQUERY1['整机型号']:=combobox4.text;
 if edit5.text<>'' then YWGL_DXGL.ADOQUERY1['版机号']:=edit5.text;
 if combobox2.text<>'' then YWGL_DXGL.ADOQUERY1['客户']:=combobox2.text;
 if edit6.text<>'' then YWGL_DXGL.ADOQUERY1['联系电话']:=edit6.text;
 if edit7.text<>'' then YWGL_DXGL.ADOQUERY1['联系人']:=edit7.text;
 if edit8.text<>'' then YWGL_DXGL.ADOQUERY1['故障现象']:=edit8.text;
 if edit9.text<>'' then YWGL_DXGL.ADOQUERY1['故障部位']:=edit9.text;
 if edit10.text<>'' then YWGL_DXGL.ADOQUERY1['故障原因']:=edit10.text;
 if edit11.text<>'' then YWGL_DXGL.ADOQUERY1['附件信息']:=edit11.text;
 YWGL_DXGL.ADOQUERY1.Post;
 edit2.text:='';
 edit4.text:='';
 edit5.text:='';
 edit6.text:='';
 edit7.text:='';
 edit8.text:='';
 edit9.text:='';
 edit10.text:='';
 edit11.text:='';
 combobox1.text:='';
 combobox2.text:='';
 combobox3.text:='';
 combobox4.text:='';
 Edit1.Text:= formatfloat('000000',strtofloat(edit1.text)+1);
 edit2.setfocus;
 If checkbox1.Checked Then begin
   QuickRep1.Print ;
 end;
end;
procedure TYWGL_DXGL_DJ.BitBtn3Click(Sender: TObject);
begin
 close;
end;
end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -