jxjhlr.pas

本科的毕业设计

unit jxjhlr;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, DBTables, DBCtrls, Grids, DBGrids,
  ImgList, ComCtrls, ToolWin;

type
  TFrmjxjhlr = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    CB_zy: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    CB_kcxxlb: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    L_rxnf: TLabel;
    Button5: TButton;
    Button6: TButton;
    E_kc: TEdit;
    E_sykc: TEdit;
    Q_kcxxlb1: TQuery;
    Q_kc1: TQuery;
    Q_zy1: TQuery;
    Q_sykc1: TQuery;
    Button4: TButton;
    Label9: TLabel;
    Q_ksfsm1: TQuery;
    Q_kslb1: TQuery;
    Q_ksfsm: TQuery;
    Q_kslb: TQuery;
    e_ksfs: TComboBox;
    e_kslb: TComboBox;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    Q_sj_zy_kc: TQuery;
    Button7: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CB_zyChange(Sender: TObject);
    procedure E_kcChange(Sender: TObject);
    procedure E_sykcChange(Sender: TObject);
    procedure CB_kcxxlbChange(Sender: TObject);
    procedure E_ksfsChange(Sender: TObject);
    procedure e_kslbChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmjxjhlr: TFrmjxjhlr;
  v_rxnf,v_zy,v_kc,v_sykc,v_xxlb,v_ksfs,v_kslb:string;
  v_kyy: boolean;
  kyy:integer;
implementation

uses zhxx, jxjh, jw_flxx, jw_FLXX_SYK;

{$R *.dfm}
procedure  Recordrefresh(zt:TObject) ;
begin
Frmjxjhlr.Button2.Enabled:=true;
Frmjxjhlr.button3.Enabled :=true;
V_RXNF:=Frmjxjhgl.DBcombox1.text;
Frmjxjhlr.L_rxnf.caption:=Frmjxjhgl.DBcombox1.text;
if (dm.Query1.active=true) and (dm.Query1.RecordCount<>0) then
begin
   kyy:=dm.Query1['JW_JXJHB__KYY'];
     if dm.Query1['SYS_ZY__ZYM']<>null   then
      begin
                Frmjxjhlr.cb_zy.text:=dm.Query1['SYS_ZY__ZYM'];
                //显示号码
                Frmjxjhlr.q_zy1.close;
                Frmjxjhlr.q_zy1.Params[0].asstring:=Frmjxjhlr.cb_zy.text;
                Frmjxjhlr.q_zy1.Open;
                v_zy :=Frmjxjhlr.q_zy1['SYS_ZY__ZYH'];
               //label2.Caption:=v_zy;
              end;
      if dm.Query1['SYS_KC__KCM']<>null    then

          begin
                 Frmjxjhlr.e_kc.Text :=dm.Query1['SYS_KC__KCM'];
                 //显示号码
                Frmjxjhlr. q_kc1.close;
                 Frmjxjhlr.q_kc1.Params[0].asstring:=Frmjxjhlr.e_kc.text;
                Frmjxjhlr. q_kc1.Open;
                 v_kc :=Frmjxjhlr.q_kc1['SYS_kc__kch'];
                // label3.Caption:=v_kc;
               end;
if dm.Query1['sykcm']<>null then
       begin
       Frmjxjhlr.e_sykc.Text:=dm.Query1['sykcm'];
                Frmjxjhlr.q_sykc1.close;
                 Frmjxjhlr.q_sykc1.Params[0].asstring:=Frmjxjhlr.e_sykc.text;
                 Frmjxjhlr.q_sykc1.Open;
                 v_sykc :=Frmjxjhlr.q_sykc1['SYS_kc__kch'];
               //  label4.Caption:=v_sykc;
                 Frmjxjhlr.e_sykc.Color:=clWindow;
       end
      else
        begin
          Frmjxjhlr.e_sykc.Color:=clScrollBar;
          Frmjxjhlr.e_sykc.Text:=''  ;
          v_sykc:='';
           // label4.Caption:=v_sykc;
        end;

      if dm.Query1['SYS_KCXX__XXLBM']<>null then
        begin
         Frmjxjhlr.cb_kcxxlb.Text:=dm.Query1['SYS_KCXX__XXLBM'];
         Frmjxjhlr.q_kcxxlb1.close;
         Frmjxjhlr.q_kcxxlb1.Params[0].asstring:=Frmjxjhlr.cb_kcxxlb.text;
          Frmjxjhlr.q_kcxxlb1.Open;
          v_xxlb:=Frmjxjhlr.q_kcxxlb1['SYS_KCXX__XXLB'];
        // label5.Caption:=v_xxlb;
        end;

      if dm.Query1['ksfs']<>null  then
        begin
        Frmjxjhlr.e_ksfs.text:=dm.Query1['ksfs'];
        Frmjxjhlr.q_ksfsm1.close;
        Frmjxjhlr.q_ksfsm1.Params[0].asstring:=Frmjxjhlr.e_ksfs.Text;
        Frmjxjhlr.q_ksfsm1.Open;
        v_ksfs:=Frmjxjhlr.q_ksfsm1['code'];
        end;
      if dm.Query1['kslb']<>null   then
       begin
        Frmjxjhlr.e_kslb.Text:=dm.Query1['kslb'];
        Frmjxjhlr.q_kslb1.close;
        Frmjxjhlr.q_kslb1.Params[0].asstring:=Frmjxjhlr.e_kslb.Text;
        Frmjxjhlr.q_kslb1.Open;
         v_kslb:=Frmjxjhlr.q_kslb1['code'];
      end;
  end
  else //第一次新增加记录
    begin
       if  Frmjxjhlr.e_kslb.Text<>''  then
       begin
        Frmjxjhlr.q_kslb1.close;
        Frmjxjhlr.q_kslb1.Params[0].asstring:=Frmjxjhlr.e_kslb.Text;
        Frmjxjhlr.q_kslb1.Open;
         v_kslb:=Frmjxjhlr.q_kslb1['code'];
      end;
        if Frmjxjhlr.e_ksfs.text<>''  then
        begin
        Frmjxjhlr.q_ksfsm1.close;
        Frmjxjhlr.q_ksfsm1.Params[0].asstring:=Frmjxjhlr.e_ksfs.Text;
        Frmjxjhlr.q_ksfsm1.Open;
        v_ksfs:=Frmjxjhlr.q_ksfsm1['code'];
        end;
         if Frmjxjhlr.cb_kcxxlb.Text<>'' then
        begin
         Frmjxjhlr.q_kcxxlb1.close;
         Frmjxjhlr.q_kcxxlb1.Params[0].asstring:=Frmjxjhlr.cb_kcxxlb.text;
         Frmjxjhlr.q_kcxxlb1.Open;
         v_xxlb:=Frmjxjhlr.q_kcxxlb1['SYS_KCXX__XXLB'];
        // label5.Caption:=v_xxlb;
        end;
        if  Frmjxjhlr.cb_zy.text<>''   then
           begin
             //显示号码
             Frmjxjhlr.q_zy1.close;
             Frmjxjhlr.q_zy1.Params[0].asstring:=Frmjxjhlr.cb_zy.text;
             Frmjxjhlr.q_zy1.Open;
             v_zy :=Frmjxjhlr.q_zy1['SYS_ZY__ZYH'];
              //label2.Caption:=v_zy;
             end;
    end;
end;
procedure TFrmjxjhlr.FormCreate(Sender: TObject);
var
M,N:INTEGER;
begin
    //cb-zy代码
    dm.Table_zy.Close;
    dm.Table_zy.Open;
     N:=0;
      M:=0;
    with dm.Table_zy  do
     begin
       while not eof do
       begin
      CB_zy.items.add(fieldbyname('SYS_ZY__ZYM').asstring);
      if dm.Table_zy.FieldValues['SYS_ZY__ZYM']=dm.Q_rxnf_zy.FieldValues['sys_zy__zym'] then
          M:=N
       ELSE
            N:=N+1;
        next;
         end;
      CB_zy.ItemIndex:=M;
       close;
     end;
     //cb-kcxxlb代码
     with dm.Table_kcxxlb do
     begin
       close;
       open;
       while not eof do
       begin
         CB_kcxxlb.items.add(fieldbyname('SYS_KCXX__XXLBM').asstring);
         next;
          CB_kcxxlb.ItemIndex :=0;
         end;
       close;
     end;

    with q_ksfsm do
     begin
       close;
       open;
       while not eof do
       begin
         e_ksfs.items.add(fieldbyname('CodeMean').asstring);
         next;
          e_ksfs.ItemIndex :=0;
         end;
          close;
     end;
      with q_kslb do
     begin
     close;
       open;
       while not eof do
       begin
         e_kslb.items.add(fieldbyname('CodeMean').asstring);
         next;
         e_kslb.ItemIndex:=0
         end;
         close;
     end;
end;

procedure TFrmjxjhlr.Button4Click(Sender: TObject);
begin
v_kyy:=false;
button2.Enabled:=true;
button3.Enabled :=true;
Recordrefresh(Frmjxjhlr);
end;

procedure TFrmjxjhlr.Button5Click(Sender: TObject);
begin

Frmkcyysj:=TFrmkcyysj.Create(self);
 try
  Frmkcyysj.ShowModal;
 finally
  Frmkcyysj.Free;
 end;
end;
procedure TFrmjxjhlr.Button6Click(Sender: TObject);
begin

Frmsyyysj:=TFrmsyyysj.Create(self);
 try
   Frmsyyysj.ShowModal;
 finally
   Frmsyyysj.Free;
 end;