productmsunit.~pas

来自「批发商品管理系统 目前我正在潜心研究」· ~PAS 代码 · 共 282 行

unit ProductMSUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzButton, ExtCtrls, ImgList, ActnList, cxPC, cxControls,
  dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, cxStyles, cxContainer,
  cxEdit, cxGroupBox, DB, ADODB, cxDBLabel, cxDBEdit, cxTextEdit, cxLabel,
  cxMaskEdit, cxSpinEdit, cxGraphics, cxDropDownEdit;

type
  TProductMSForm = class(TForm)
    MainPC: TcxPageControl;
    MainTS: TcxTabSheet;
    TranList: TActionList;
    Add: TAction;
    Change: TAction;
    Save: TAction;
    Delete: TAction;
    ImageList: TImageList;
    Toolbar: TRzToolbar;
    BtnAdd: TRzToolButton;
    BtnEdit: TRzToolButton;
    BtnSave: TRzToolButton;
    BtnDelete: TRzToolButton;
    BtnRefresh: TRzToolButton;
    DS_FlowData: TDataSource;
    DS_FlowCourseItem: TDataSource;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cFlowName: TdxDBGridColumn;
    dxDBGrid1cFlowMemo: TdxDBGridColumn;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2ID: TdxDBGridMaskColumn;
    dxDBGrid2CourseID: TdxDBGridMaskColumn;
    dxDBGrid2cCourseName: TdxDBGridColumn;
    dxDBGrid2cDeptNo: TdxDBGridColumn;
    dxDBGrid2cPerson: TdxDBGridColumn;
    dxDBGrid2cCourseMemo: TdxDBGridColumn;
    Panel3: TPanel;
    TranType_PC: TcxPageControl;
    Flow_TS: TcxTabSheet;
    FlowName_Label: TcxLabel;
    FlowName_TE: TcxTextEdit;
    FlowMemo_Label: TcxLabel;
    FlowMemo_TE: TcxTextEdit;
    FlowData_TE: TcxDBTextEdit;
    Course_TS: TcxTabSheet;
    CourseName_Label: TcxLabel;
    CourseMemo_Label: TcxLabel;
    Person_Label: TcxLabel;
    Dept_Label: TcxLabel;
    CourseNo_Label: TcxLabel;
    CourseName_TE: TcxTextEdit;
    CourseMemo_TE: TcxTextEdit;
    CourseNo_SE: TcxSpinEdit;
    Person_CBB: TcxComboBox;
    Dept_CBB: TcxComboBox;
    FlowCourseItemID: TIntegerField;
    FlowCourseItemCourseID: TIntegerField;
    FlowCourseItemcCourseName: TWideStringField;
    FlowCourseItemcDeptNo: TWideStringField;
    FlowCourseItemcPerson: TWideStringField;
    FlowCourseItemcCourseMemo: TWideStringField;
    Refresh: TAction;
    SQL: TADOQuery;
    Next: TAction;
    FlowCourseItem: TADODataSet;
    Course: TADODataSet;
    Flow: TADOQuery;
    procedure NextExecute(Sender: TObject);
    procedure AddExecute(Sender: TObject);
    procedure Flow_TSHide(Sender: TObject);
    procedure Course_TSHide(Sender: TObject);
    procedure ChangeExecute(Sender: TObject);
    procedure SaveExecute(Sender: TObject);
    procedure dxDBGrid1Click(Sender: TObject);
    procedure dxDBGrid2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ProductMSForm: TProductMSForm;

implementation
uses
  DataModule;
{$R *.dfm}

procedure TProductMSForm.NextExecute(Sender: TObject);
begin
    FlowName_TE.Text   := Flow.Fields[1].AsString;
    FlowMemo_TE.Text   := Flow.Fields[2].AsString;
    CourseNo_SE.Value  := FlowCourseItem.Fields[1].AsInteger;
    CourseName_TE.Text := FlowCourseItem.Fields[2].AsString;
    Dept_CBB.Text      := FlowCourseItem.Fields[3].AsString;
    Person_CBB.Text    := FlowCourseItem.Fields[4].AsString;
    CourseMemo_TE.Text := FlowCourseItem.Fields[5].AsString;
    FlowCourseItem.Filtered := False ;
    FlowCourseItem.Filter   := 'ID ='+#39+FlowData_TE.Text+#39;
    FlowCourseItem.Filtered := True ;
    FlowName_TE.ParentColor   := True ;
    FlowMemo_TE.ParentColor   := True ;
    FlowName_TE.Enabled       := False ;
    FlowMemo_TE.Enabled       := False ;
    CourseNo_SE.ParentColor   := True ;
    CourseName_TE.ParentColor := True ;
    Dept_CBB.ParentColor      := True ;
    Person_CBB.ParentColor    := True ;
    CourseMemo_TE.ParentColor := True ;
    CourseNo_SE.Enabled       := False ;
    CourseName_TE.Enabled     := False ;
    Dept_CBB.Enabled          := False ;
    Person_CBB.Enabled        := False ;
    CourseMemo_TE.Enabled     := False ;

end;

procedure TProductMSForm.AddExecute(Sender: TObject);
begin
    BtnAdd.Enabled            := False ;
    BtnEdit.Enabled           := False ;
    BtnDelete.Enabled         := False ;
    BtnSave.Enabled           := True ;
    BtnRefresh.Enabled        := True ;
    IF TranType_PC.ActivePage = Flow_TS Then
    Begin
        FlowName_TE.ParentColor   := False ;
        FlowMemo_TE.ParentColor   := False ;
        FlowName_TE.Enabled       := True  ;
        FlowMemo_TE.Enabled       := True  ;
    End Else IF TranType_PC.ActivePage = Course_TS Then
    Begin
        CourseNo_SE.ParentColor   := False ;
        CourseName_TE.ParentColor := False ;
        Dept_CBB.ParentColor      := False ;
        Person_CBB.ParentColor    := False ;
        CourseMemo_TE.ParentColor := False ;
        CourseNo_SE.Enabled       := True ;
        CourseName_TE.Enabled     := True ;
        Dept_CBB.Enabled          := True ;
        Person_CBB.Enabled        := True ;
        CourseMemo_TE.Enabled     := True ;

    End Else Begin

    End;
end;

procedure TProductMSForm.Flow_TSHide(Sender: TObject);
begin
    FlowName_TE.ParentColor   := True ;
    FlowMemo_TE.ParentColor   := True ;
    FlowName_TE.Enabled       := False ;
    FlowMemo_TE.Enabled       := False ;
end;

procedure TProductMSForm.Course_TSHide(Sender: TObject);
begin
    CourseNo_SE.ParentColor   := True ;
    CourseName_TE.ParentColor := True ;
    Dept_CBB.ParentColor      := True ;
    Person_CBB.ParentColor    := True ;
    CourseMemo_TE.ParentColor := True ;
    CourseNo_SE.Enabled       := False ;
    CourseName_TE.Enabled     := False ;
    Dept_CBB.Enabled          := False ;
    Person_CBB.Enabled        := False ;
    CourseMemo_TE.Enabled     := False ;
end;

procedure TProductMSForm.ChangeExecute(Sender: TObject);
begin
    BtnAdd.Enabled            := False ;
    BtnEdit.Enabled           := False ;
    BtnDelete.Enabled         := False ;
    BtnSave.Enabled           := True ;
    BtnRefresh.Enabled        := True ;
    IF TranType_PC.ActivePage = Flow_TS Then
    Begin
        FlowName_TE.ParentColor   := False ;
        FlowMemo_TE.ParentColor   := False ;
        FlowName_TE.Enabled       := True ;
        FlowMemo_TE.Enabled       := True ;
        FlowName_TE.Text   := Flow.Fields[1].AsString;
        FlowMemo_TE.Text   := Flow.Fields[2].AsString;
    End Else IF TranType_PC.ActivePage = Course_TS Then
    Begin
        CourseNo_SE.ParentColor   := False ;
        CourseName_TE.ParentColor := False ;
        Dept_CBB.ParentColor      := False ;
        Person_CBB.ParentColor    := False ;
        CourseMemo_TE.ParentColor := False ;
        CourseNo_SE.Enabled       := True ;
        CourseName_TE.Enabled     := True ;
        Dept_CBB.Enabled          := True ;
        Person_CBB.Enabled        := True ;
        CourseMemo_TE.Enabled     := True ;
        CourseNo_SE.Value  := FlowCourseItem.Fields[1].AsInteger;
        CourseName_TE.Text := FlowCourseItem.Fields[2].AsString;
        Dept_CBB.Text      := FlowCourseItem.Fields[3].AsString;
        Person_CBB.Text    := FlowCourseItem.Fields[4].AsString;
        CourseMemo_TE.Text := FlowCourseItem.Fields[5].AsString;
    End Else Begin

    End;

end;

procedure TProductMSForm.SaveExecute(Sender: TObject);
begin
    IF TranType_PC.ActivePage = Flow_TS Then
    Begin
        FlowName_TE.ParentColor   := False ;
        FlowMemo_TE.ParentColor   := False ;
        FlowName_TE.Enabled       := True ;
        FlowMemo_TE.Enabled       := True ;
            Showmessage('10');
        IF (FlowName_TE.Text = '') OR (FlowMemo_TE.Text = '') Then
        Begin
            Showmessage('资料填写不完整,请重新输入');
            Exit ;
        End;

        SQL.Close;
        SQL.SQL.Clear;
        SQL.SQL.Add('INSERT INTO tFlowData ');
        SQL.SQL.Add('(cFlowName, cFlowMemo)');
        SQL.SQL.Add('VALUES ('''+ FlowName_TE.Text +''','''+ FlowMemo_TE.Text +''')');
        SQL.ExecSQL;
            Showmessage('11');

        Flow.Close;
        Flow.Open;
            Showmessage('12');
    End Else IF TranType_PC.ActivePage = Course_TS Then
    Begin
        CourseNo_SE.ParentColor   := True ;
        CourseName_TE.ParentColor := True ;
        Dept_CBB.ParentColor      := True ;
        Person_CBB.ParentColor    := True ;
        CourseMemo_TE.ParentColor := True ;
        CourseNo_SE.Enabled       := False ;
        CourseName_TE.Enabled     := False ;
        Dept_CBB.Enabled          := False ;
        Person_CBB.Enabled        := False ;
        CourseMemo_TE.Enabled     := False ;
    End Else Begin

    End;
    BtnAdd.Enabled            := True ;
    BtnEdit.Enabled           := True ;
    BtnDelete.Enabled         := True ;
    BtnSave.Enabled           := False ;
    BtnRefresh.Enabled        := False ;

end;

procedure TProductMSForm.dxDBGrid1Click(Sender: TObject);
begin
    TranType_PC.ActivePage := Flow_TS;
end;

procedure TProductMSForm.dxDBGrid2Click(Sender: TObject);
begin
    TranType_PC.ActivePage := Course_TS;
end;

procedure TProductMSForm.FormShow(Sender: TObject);
begin
            Showmessage('24');
            Showmessage('25');

end;

end.